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FOREWORD 

The Test, Mit, and List ORB3A Tape program (TELOR3), was prepared 
by Computer Sciences Corporation imder Contract Number NAS 5-11790. It 
is a completely revised version of the T]est,_Edit, and List ORB3A Tape 
program produced by International Business Machines Corporation in March 
1969» under Contract Number NAS 5-10022. 

The present document supersedes the original. 


Isabella J. Cole 

Monitor, Goddard Space Flight Center 
Task Assignment No. 72 , Subtask H 
Contract Number NAS 5-11790 
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ABSTEACT 

This report documents the S/360 TELOR3 Program which tests, edits, and 
lists the information on an ORB3A tape. The documentation includes narrative 
descriptions (including flowcharts) of the main driver routine and the sub- 
routines of the TELOR.3 Program, a User's Guide, cross reference charts 
pertaining to the source program, and a compiled listing of the source program. 
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■- SECTION 1 


mTRODUCTfON 


The purpose of the TELOR3 Program (Test, Edit, and List ORBS A Tape) 
is to validate and/or edit the single precision floating point data on a 7-track, 
binary QRBSA tape (see Reference 1). To accomplish this purpose TELOR3 
provides the five options which are listed below: 

1. Ascending Node Report Option - Processing in this option lists the times 
of ascending node crossing numbers (pass numbers) present on an 
input, binary ORB3A tape and computes and lists the time period between 
successive pass numbers (ascending ^nodes). 

2. Change Pass Numbers and Report Option - Processing in this option creates 
an output, binary ORBS A tape identical to the input, binary ORBS A tape, 
except that the output OEB3A tape contains altered pass numbers (altered 
ascending node crossing numbers). This option also produces an ascending 
node report based on the output ORB3A tape. 

3. Select Time Period Option - Processing in this option selects a user 
specified period of data present on the input, binary ORBS A tape and 
writes this period on an output, binary ORB3A tape, together with a 
revised title record containing the start and end times of the selected 
peiiod. 

4. Sunlight Report Option - Processing in this option lists the times of 
satellite entrance into and exit from sunlight present on an input, binary 
OEB3A tape. 
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5 . 


Cheek Record Option - This option is used to check binary ORB3A tapes 
which experienced abnormal run termination when being generated. 
Certain words in each record of the input ORB3A tape are cheeked for 
absolute errors, such as, a percent value exceeding 100 percent. In 
addition, selected words are cheeked for errors peculiar to ORBS A 
data, such as, a word not being equal to a standard ORB3A value. 

Each record is also checked for a read error and for an end-pf-file 
indicator. The first input OEB3A record to fail any one of the above 
checks while being processed in this option, causes an output, binary 
ORB3A tape to be generated with the period of data extending through the 
next-to-the-last record -before the -check- fail record, hi addition, the 
output ORB3A tape has a revised title record containing thenew end time 
of the satellite data. 

Only one option can be executed for any job submittal. 

The S/360 TELOR3 Program has been compiled under FORTRAN IV, level H, 
optimization level of zero on the IBM 360/95 using Release 19. 

The following sections of this report present detailed subroutine descriptions 
for the main driver routine and the processing subroutines which form the 
TELOR3 Program. Each description includes: (1) the purpose of the subroutine; 
(2) the method of the subroutine; (3) subroutine usage; (4) subprograms called; 

(5) a flowchart; and (6) subroutine restrictions. 

hi addition, this report contains three appendices which are described below: 

Appendix A: A User's Guide including a sample run printout 

for each of the five TELOE3 options. 

Appendix B: Source program cross reference charts dis- 

playing: (1) subroutine COMMON block usage; 

(2) input/output units vs internal statement 
numbers (3SN) for each subroutine; and (3) calls 
to subroutines vs ISN numbers for each 
subroutine. 

Appendix C; A compiled listing of the source program. 


2 



SECTION 2 


SUBROUTINE DESCRIPTION — MAIN DRIVER 


Sijbroutine Naine: and -Progrard Number MAIN^ Number 000409 
Programmer's Name Robert K. Sclilessinger 
Date May 7, 1971 
2.1 PURPOSE 

- • MAIN^sdrves as ..the. executive or supervisory routine. for four of tlie 
. five options in the S/360 TELOR3 Program. The remaining option, 
specific^y, the Change Pass Numbers and Report option, is per- 
formed by logic contained within MAIN. 

2'. 2 ' METHOD 

The MAIN-routine first reads in, the title record of the. TELORS input 

tape and verifies whether or not the input is a binary .ORB3A tape. 

. If not, an error message is printed out, and execution is terminated. 

If the input is a binary ORB3A tape, MAIN reads ah option card 

■ specifying the input ORB 3 A tape number and which one of the five 

possible! TE LOBS options is tO' be* performed. The five possible 

TELOR3 options are: the Ascending Node Report Option- (subroutine 
^ ' *1 ^ 

- ASCEND);-the Change Pass Numbers and Report-Option (MAIN routine); 

' the Select Time -Period Option (Subroutine SELECT);, the Sunlight Report 
Option (subroutine SUNLOT); and the Check Record Option (sub- 
routine CHKR'EC). a validity check is made on the option 
selector read from the card. If the selector is invalid, an error 
mess^e .is printed out and execution is terminated. If the option 
selector is valid, processing, continues and MAIN converts the 
input ORB3A tape start and end times in seconds-of-day (contained 
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in the title record), to start and end times in hours, minutes, 
seconds. A title p^e is printed out displaying the program title 
(TELOB3), the option selected, satellite ID, input ORBSAtape 
number, and input ORBS A tape start and end times in hours, minutes, 
and seconds. MAIN is then ready to supervise the -execution of the 
specific option chosen. The following paragraphs describe how 
MAIN controls the program flow for each of the five possible options. 

If tile Sunlight Report Option, the Select Time Period 
Option, or the Check Record Option has been specified, MAIN calls 
- the appropriate subroutine. The desired processing is performed by 
the subroutine. Control is then returned to MAIN, and the program 
comes to a stop. 

If the Ascending Node Report Option has been selected, MAIN prints 
out the column headings for this report option. MAIN then enters a 
loop which reads an input ORB3A tape record into an array called 
READIN, and cheeks the record to see whether it is a data record or 
a sentinel record. 

When a data record is encountered, MAM checks for the existance 
of an ascending node data item by examining the third word in file 
12th data -item (the special type data item) for the absence or 
presence of a 999. When 999 is absent, an ascending node data 
item exists in the data record. ■ In this case, MAIN calls subroutine 
ASCEISTD to isolate that item and use it to produce and store one 
line of information for the BCD output of the Ascending Node Report, 
Program control is then returned to MAIN which executes 
•insfccuctions to print the ascending node line of information just 
stored by ASCEND. MAIN then returns to the beginning of the 
loop and.-another input record is read into array READM. 
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U 999 is present in the 3rd word of the 12th data Item, it indicates 
to MAIN that no ascending^ node item exists in this data record and 
MAIN returns to' the heginnihg of the loop to process the next data 
record. 

When 'a-'sentinel 'record is encountered, a mess^e is printed on 
the Ascending. Node Heport 'stating 'that, a 'normal termination of the 
Ascendii^ Node -Report Option has 'occurred.- 

If the Change Pass Numbers and Report Option has been selected, 

MAIN creates an output, binary ORB3A tape which is -a duplicate 
of the input, binary ORB3A tape, with the exception that the output 
tape contains altered pass numbers (i. e. , altered ascending node 
crossing numbers). The Pass Number Option also produces an 
ascending node report, based on the output OEB3A tape. The input 
option card read by MAIN supplies a number (stored in variable 
VALUE) which is one less than the desired value for the pass number 
of the first ascending node data item to be ■written on the output ORB 3 A 
t£$)e. After the option card has been read, column headings for the 
Ascending Node Report based on the output ORB3A tape are printed 
out. Next, the TITLE array (containing the title record from the 
input ORB3A tape) is written out as the title record on the output 
ORBS A tape. MAIN then enters a loop which performs the 
foUo'wing steps; 

1. Reads an input ORB3A record into the READIN array. 

2. ' Checks the record (array READIN) to determine whether 

it is a sentinel, or a data recoixi. 

3. If it is a sentinel record, a loop exit occurs, the proper number 
of sentinel type records are written on the output ORBS A tape, 

-an end-of-^file;is written on the output-ORBSA, and a mess^e is 
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printed in the Ascending Node Report stating that a normal 
termination of the Change Pass Numbers and Report 
Option has occurred, 

4. If it is a data record, the pass number of each satellite 
data item in the record (array READIN ) is changed and 
the content of READIN is then written out on the output 
ORB3A tape, 

5. If the record just written out contains an ascending node 
data item, subroutine ASCEND is called to produce and store 
one line of information for the output of the Ascending Node 
Report. Control then returns to MAIN which prints the line 
of information in the Ascending Node Report, and MAIN 
returns to the beginning of the loop. 

6. If the record just written out does not contain an ascending 
node data item, MAIN returns to the beginning of the loop. 

The pass numbers in Step 4 above are changed in the following way. 
Each data item in array READIN is examined for the presence of an 
ascending node type indicator and the pass number of every data item 
is replaced by the content of VALUE untU an ascending node data item 
is encountered. When an ascending node data item is encountered, 
VALUE is incremented by one and the result replaces the pass number 
of the ascending node data item, and the pass numbers of all sub- 
sequent satellite data items in the READIN array, until another 
ascending node data item is encountered. 

2.3 USAGE 

This section presents information defining the interfaces of the Main 
Driver Routine (MAIN), of program TELOR3, with referenced 
external storage areas, and with other subprograms. 
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2.3.I- 


Calling Sequence 

MAEST is the Main Driver Routine for program TELOR3 and, therefore 
has-^no associated calling sequence. 

2.3.2 COMMON Areas 

A single, unlabeled COMMON area is used in the TELOR3 Program. 
The statement defining this COMMON area is: 

COMMON TITLE (256), READIN (256), PERIOD, ISAVE(6), 
ISET 


The arguments are defined in the following table: 


Argument 

Dimension • 

Description 

TITLE 

256 

Array containing an ORB3A title record. 

READIN 

256 

Array containing an ORB3A data 
record. 

PERIOD ^ 

1 

Time interval between successive 
ascending nodes in minutes (set in 
subroutine ASCEND). The seventh 
data element in each line of the 
Ascending Node Report output. 

ISAVE 

6 

Array used to store six of the seven 
data elements comprising one line of 
the Ascending Node Report output 
(set in subroutine ASCEND) . 

ISAVE(1) 
ISAVE (2) 
ISAVE(3) 
ISAVE (4) 
ISAVE (5) 
ISAVE (6) 


Pass Number 
Y ear^ month-day 

Day-of-year Pass Number 

Hour-of-day ' time of occurrence 

Minute-of-hour 
Second-of-^inute . 
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Argumeut Dimension Description 

ISET 1 Hag parameter used in subroutine 

ASCEND to specify the equation to be 
used in calculating the time interval 
(PERIOD) between successive ascending 
nodes (set in MAIN) 

= 0; PERIOD=0, (for first ascending 
node encountered only) 

= 1; PERIOD=time elapsed from 
preceding ascending.node 
encountered. 

External Data Sets 

Program TELOR3 interfaces with two external data sets; 

1. The input, ibinary ORB3A tape for all options 

2. The ouiput, binary ORB3A tape for the following 
options: 

“Change pass numbers and report option 
-Select time period option 
-Check record opfion 

These tapes -are read or written, as appropriate by subroutine 
RWTAP4. Detailed description of the content and format of these 
tapes is included in the subroutine descnption for RWTAP4. 

SUBPROGRAMS CALLED 

■This section identifies the subprograms (subroutines and &nctions) 
called from MAIN, The CALL statement for each call to each sub- 
program is given, followed by a definition of the calling sequence 
arguments. Where multiple calls to the same program are made 
from MAIN, the calls are presented in the order in which they appear 
in the- source listing. 



2.4.1 


Subroutines Called 


1. Subroutine ASCEKD - This subroutine is called to isolate 
ascending node data items and store data for the Ascending 
Node Report. The calling sequence is: 

CALL ASCEND 

There are no arguments in the calling sequence. 

2. Subroutine SUNLGT - This slijrputine is called to isolate 
sunlight entrance or exit data items and report them. The 
calling sequence is : 

CALL SUNLGT 

3. Subroutine SELECT ~ This subroutine is called to execute 
the Select Time Period Option. 

The calling sequence is: 

CALL SELECT 

There are no arguments in the calling sequence. 

4. Subroutine CHKREC - This subroutine is called to execute 
the Check Record Option. The calling sequence is: 

CALL CHKREC 

There are no arguments in the calling sequence, 

5. Subroutine RWTAP4 - This subroutine is called to read the 
input ORB3A tape=or write the output ORBS A tape, RWTAP4 
has three entry points: 

RTAPE4 - Called to read the input ORB3A t^e 

WTAPE4 - Called to write title or data records on 
the output ORB3A tape. 

\WSNEOE- Called to write sentinel records and an 
end-of-file on the output ORB3A tape. 
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The calling sequences used in MAIN axe listed below: 


CALL RTAPE4 

(TITLE, lERR) 

CALL WTAPE4 

(TITLE) 

CALL RTAPE4 

(READIN, lERR) 

CALL WTAPE4 

(READIN) 

CALL WSNEOP 

(READIN, TITLE, IWORD) 

The arguments appearing in these calling sequences are defined 

below: 


IEEE; 

An error indicator returned by subroutine 
RWTAP4 reflecting unusual conditions 
encountered in reading the input ORB3A tape. 


=0; No unusual conditions 
- =1; End-of-file encountered 

=4; Permanent read error encountered. 
Data are returned to calling program, 
but their validity Is questionable. 

IWORD: 

An indicator used to control branching in 
WSNEOP processing. 

=1; WSNEOP writes one sentinel item 
record, two sentinel records, and an 
end-of-file on the output ORB3A tape. 

=2* "WSHEOF writes two sentinel records and 
an end-of-file on oulput ORB3A tape. 

READIN; 

A 256 word' array used to store each data record 
read from the input ORB3A tape; and data or 
sentinel item records ready to b e written on the 
output ORB 3 A tape. 

■ TITLE: 

A 256 word array used to store the title record 
read from the input ORB3A tape; and to store the 
title record and sentinel records ready to be written 
on the output OEB3A tape. 
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2.4.2 


Fimctions Called 


The routine MAIN calls the IBM system function FLOAT (WAR) 
several times to convert the integer argument variable, represented 
by IVAR, to a real variable without round off. The calling sequences 
appearing in MAIN are: 

FLOAT (EREADl) 

FLOAT (IREAD2) 

FLOAT (TREADS) 

FLOAT (IREAD4) 

The arguments appearing in these calling sequences are defined 
below: 


IREADl: 

Start time hour for satellite data on the input 
ORB3A tape 

IREAD2: 

End time hour for satellite data on the input 
ORBS A tape 

TREADS: 

Start time minute-of-hour for satellite 
data on the input ORB3A tape 

IREAD4: 

End time minute-of-hour for satellite data 
on the input ORBS A tape. 


2.5 FLOWCHART 

The flowchart for routine MAIN appears in Figure 1. 

2.6 RESTRICTION 

The routine MAIN can only process one option per job submittal. 
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Figure 1 (sheet 1 of 3). Flowchart for MAIN Routine of the S/360 TELOR3 Program 
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Figure 1 (sheet 2 of 3). Flowchart for MAIN Routine of the S/360 TELOR3 Program 











IF THIS RECORD IS A SENTINEL 
RECORD, WSNEOF WRITES 2 
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OF-FiLE ON OUTPUT ORB3A. 
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Figure 1 (sheet 3 of 3). Flowchart for MAIN Routine of the S/360 TELOR3 Program 




SECTION 3 


SUBROUTINE DESCRIPTION — ISOLATE ASCENDING NODE (ASCEND) 

Subroutine Name and Program Number ASCEND, Number GO 040 9 
Programmer's Name Robert K. Scblessinger 
Date May 7, 1971 

3.1 PURPOSE 

Subroutine ASCEND isolates the satellite data item in an 
ORB3A data record which is of the ascending node type, and 
uses data from this ascending node item to produce and store 
one line of information for the BCD output of the Ascending 
Node Report. 

3.2 METHOD ■ 

Subroutine ASCEND isolates the data item in an ORB3A data 
record which is of the ascending node type. To accomplish 
this isolation, ASCEND examines the type indicator (first word) 
of each of the eleven satellite data items in the data record. 

The record is stored in the READM array. When the first 
word of a data item contains a type indicator equal to 2, the 
ascending node data item has been found. The time of occurrence 
of this ascending node is converted from s econds-of-day to hours, 
minutes, and seconds. The pass number, the year- month-day of occur- 
rence, day-of-year, and the converted time of the ascending node 
are then stored in an array called ISAVE. Finally, the period of 
time, in minutes, between this ascending node and the last previous 
ascending node, is calculated and stored in variable PERIOD. 

If this is the first ascending node to be found, PERIOD is set to 
zero. ISAVE and PERIOD then contain the necessary data for one 
line of information for the output Ascending Node Report. Control 
is returned to MAIN in which instructions ace executed to print this 
line of information. 
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3.3 USAGE 

This section presents information defining the interfaces of 
subroutine ASCEND with referenced external storage areas, 
and other subprograms. 

3.3.1 Calling Sequence 

The calling seijuenee is: 

CALL ASCEND 

There are no arguments in the callir^ secpience. 

3.3.2 COMMON Areas 

Subroutine ASCEND -makes use of information stored in the 
unlabeled COMMON area used in Program TELOR3. This 
COMMON area is defined in the subroutine description for the 
routine, MAIN (Section 2.3.2). 

3.3.3 External Data Sets 
None 

3.4 SUBPROGRAMS CALLED 

This section identifies the subroutines and ftinctions called from 
ASCEND. Calling sequences used are presented, followed by 
definitions of the arguments appearing in the calling sequences. 

3.4.1 Subroutines Called 
None 

3.4.2 Functions Called 

Subroutine ASCEND make use of two IBM system fiinctions: FLOAT 
and MOD. 
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1 . 


Function FLOAT (IV AR) - This fimction is used to convert 
the integer argument variable (represented by WAR) to a 
real variable without round off. The calling secfuences 
appearing in ASGERD are: 

FLOAT (ISAVE(4)) 

FLOAT ([SAVE (5)) 

The arguments appearing in these callir^ sequences are 
defined below: 

ISAVE(4): Hour-of-day in which an ascending node 
occurs 

ISAVE(5); Minute- of-hour in which an ascending 
node occurs 

2. Function MOD (IVAR,N) - The value of this fimction is 
the integer remainder after dividing the first argument 
by the second. The calling sequence appearir^ in ASCEND 
is: 

MOD (IYEAR,4) 

where lYEAR is the year associated with satellite 
data on the input OEB3A tape. ,The MOD function is used 
in determining whether, the year represented by lYEAR 
is a leap year. 

3.5 FLOWCHART 

The flowchart for subroutine ASCEND appears in Figure 2. 

3.6 RESTRICTION 

The coding of subroutine ASCEND presumes that no more than one 
ascending node data item will appear in a single data record on the 
input ORBS A tape. 
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SECTION 4 


SUBROUTINE DESCRIPTION — SELECT'TIME PERIOD (SELECT) 

Subroutine Name and Program Number; SELECT, Number GQ0409 
Programmer’s Name; Robert K. Schlessxnger 
Date: May 7, 1971 

4.1 PURPOSE 

Subroutine SELECT is used to select any period of data present on an 
input, binary ORB3A tape, and write this period on an output, binary 
ORB3A tape together with a revised title record containing the start 
and end times of the selected period. 

4.2 METHOD 

Backspacing and/or rewinding a 7-track, binary, input ORBS A tape 
is not allowed when using the special purpose FORTRAN library 
subroutine, DBFOR, which is required for reading this input tape with 
the S/360 series of computers (see subroutine description for RWTAP4). 
The capability is desired in subroutine SELECT for backspacing and/or 
rewinding an input ORB3A tape. To provide this capability, subroutine 
SELECT copies, onto a disk, the input ORB3A data records up through 
the first sentinel record or through the sentinel item record whichever 
the case may be, (The ORB3A title record has been previously read 
into the TITLE array by MAIN and TITLE is available to SELECT when 
needed.) The disk is then rewound, variables are initialized, and the 
requested period start and end times (year- month-day, hours- minutes) 
are read from the Select Period Input Card. The hours and minutes 
of the requested period start and end times are converted into requested 
start and end seconds-of-day. The requested time period is printed out 
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(year-month-day, seconds of day), and subroutine SELECT,ent^s 

a search.“for-start“time loop which performs the following steps, 

1. Reads a record from the disk into the READ IN array, increments 
the record counter (IRECRD) by one, and examines READIN(l) 
for the presence of 9’s (99999999.). 

2. If 9's are present, a sentinel record or a sentinel item record 
has been encountered which indicates the requested start time 
cannot be found on the input ORB3A tape. An error message stating 
thf s condition is printed out. Control is then returned to 

MAIN, and the program comes to a stop. - 

3. If 9’s are not present, the year- month-day of the first satellite data 
item in the record (READIN(2)) is compared with the requested 

. start ye^- month-day (ST). 

4. If READIN(2j is equal to ST, a (IDATE) is set to one, which 
indicates- that the recpiested start year- month-day has been found, 

A comparison is then made between the seconds-of-day of the 
first satellite data item in the record (READIN(4)) and the 
requested start seconds-of-day (SSEC). 

5. If READIN(4) is less than SSEC, the requested period start 
time has not been found', SELECT returns to the beginning of the 
search-for-start-time loop, and another record is read from the 
disk into the READIN array. 

6. If READIN (4) is equal to SSEC, the requested start time has been 
found, and corresponds to the first satellite data item in the record 
currently stored in READIN. An exit from the search-for-start- 
time loop occurs, the present value in the record counter (IRECRD) is 
saved in variable ISTREC, and the time of occurrence of the 
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first satellite data item in READHSf (READIN(2), READIN(3), 
READIN(i))is stored in the satellite data start-time positions 
in the TITLE array (TITLE(4), TETLE(5), TITLE (S)). 

Thus the actual satellite data start time contained in TITLE 
is exactly equal to the requested period start time. A 
search- for-end- time loop now begins according to step 10. 

7. If READIN(4) is greater than SSEC, a test is made to determine 
whether or not READIN contains the first data record (IRECRD 
equal one). If IRECRD is equal to one, the requested period 
start time is earlier than' the time of the first satellite data item 
on the input ORB3A tape and, therefore, can not be found. 

Execution then proceeds according to step 2 above. If IRECRD 
is not equal to one, the-requested period start time has been 
found but exists in the record just before the one presently 
stored in READIN, and processing proceeds to step 8. 

8. Since the requested period start time exists in the record just 
before the one presently stored in READIN (the requested start 
time could be in any satellite data item other than the first one 
in the previous record), the disk is backspaced one record, the 
present value in the record counter (IRECRD) is decremented by 
one and saved in the va3dable ISTREC, and the previous record 
under consideration is read from the disk into READIN. The time 
of occurrence of the first satellite data item in READIN (READIN(2), 
READIN (3), READIN (4)) is stored in the satellite data start time 
positions in the TITLE array (TITLE (4), TITLE (5), TITLE (6)). 

Thus, the actual satellite data start time contained in TITLE 

is somewhat earlier than the requested start time. One record 
is read from the disk for positioning to the beginning of the record 
which has not yet been read from the disk, A search- for- end-time loop 
now begins according to step 10. 
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9. 


If READIN{2) is not equal- to ST (as opposed to step 4 above), 
the flag IDATE is tested for the presence of a one. If IDATE 
'contains a one, the requested start year-month-day has been 
found in the record just before the one presently stored in 
READIN and therefore, the requested period start time also 
exists in this previous record. Execution then proceeds according 
to step 8 above. If IDATE does not contain a one, the requested 
start year,- month-day has not as yet been found in the first satellite 
data item of any record including the one presently stored in READIN, 
SELECT returns to beginning of the search-for-start-time loop 
and another record is read from the disk into the READIN array. 

10. A Seareh-for-end-tinie loop begins after; the requested period start time 
•has been found, the no. of the data record on the disk containing 

the requested period start -time has been stored in ISTREC, and the 
. TITLE array has been ch^ed to reflect the satellite data 
start time of the period of data to be written on the output ORB3A 
tape. A record is read from the disk into the READIN array, 
the record counter (IRECRD) is incremented by one, and READIN(l), 
is examined for the presence, of 9's. 

11. If 9’s are not present; the year- month-day of the first satellite 

data item in the record (READIN (2)) is compared with the 
requested end year -month-day (EN). - If 9!s are found, processing 
branches to step 24. . ” ■ 

12. If READIN (2) is equal to EN, a flag (LDATE) is set to one 
(LDATE has been previously set to 'zero during SELECT 
initialization) which indicates the requested end year-month- day 
h^ been found, and a comparison is made between the seconds-of- 
day of the first satellite data item in the record (READIN(4))and 
the requested end seconds-of-day (ESEC). For READIN(2) not 
equal to EN, proceed to step 19. 
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13. 


If READIN(4) is less than ESEC, the requested period 
end time has not been found, SELECT returns to the beginning 
of the search-for-end- time loop (step 10), and another record 
is read from the disk into the READIN array. 

If READIN (4) is equal to ESEC, the requested period end time 
has been found and corresponds to the first satellite data item 
in the record currently stored inREADIN. An exit from the search- 
for- end-time loop occurs, the present value in the record counter 
(IRECRD) is saved in a variable named lENREC, and the time 
of occurrence of the last. satellite data item in READIN (READIN^12), 
READIN(213), READIN (214))is stored in the satellite data end 
time positions in the TITLE array(TITLE(7) , TITLE (8), TITLE(9)). 
Thus, the actual satellite data end time contained in TITLE is 
somewhat later than the requested end time, A read and copy operation 
now begins according to step 25. 

15. If READIN(4) is greater than ESEC, the requested period end 

time has been found, but falls either within the record just before the 
one presently stored in READIN or falls between the last satellite 
data item in the previous record under consideration and the first 
satellite data item in the record presently stored in READIN. 

In order to ascertain which of these two possibilities is the case, 
SELECT proceeds as in step 16 below. 

16. Since the requested period end time may be 'within the record 
just before the one presently stored in READIN (the requested 
end time could be in any satellite data item other than the first 

one in this previous record), the disk is backspaced one record and the 
previous record is read from the disk into READIN. A comparison 
is made between the seconds -of-day of the last satellite 
data item in READIN (READIN(2i4)) and the requested end seconds- 
of-day (ESEC). 
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17. 


If EEADIN(214) is greater than or equal- to'ESEC, the- retjuested 
end time does exist within this -previous record. The present value 
in the record counter (IRECED), decremented by one is saved in 
variable lENREC and the tiine-of—occurrence of the last satellite data 
item in EEADIN (READIN(212), READBSr(213) , -READrN(214)) is 
stored in the satellite data end time positions in the TITLE array 
(TITLE (7), TITLE (8), TITLE (9)). Thus, the actual satellite 
data end time contained in TITLE is either equal to or somewhat 
larger than the requested period end time. A read and 
copy operation now begins, according to step 25. 

18. If EEADIN (214) is less than ESEC, the requested period end time 
does not exist within the pre-vious record. Instead, the requested 
period end Erne falls between the last satellite data item in this 
pre-vious record and the first satellite data item in the next record 
on the disk (the r ecord stored in EEADIN before backspacing). This 
next record is read from the disk into EEADIN, the present 

value in the record counter (lEECED) is saved in the variable 
lENREC, and the time-of-occurrence of the last satellite data 
item in EEADIN (EEADIN(212) , EEADIN (213), EEADIN (214)) is 
stored in the satellite data end time positions in the TITLE 
array (TITLE (7), TITLE(8), TITLE(9)). Thus, the actual satellite 
data end time contained in TITLE is larger than the requested 
period end time. A read and copy operation now begins according 
to step 25. 

19. If EEADIN(2) is not equal to EN (as opposed to step 12 above), 
the flag LDATE is tested for the.presence of a one. 
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20 . 


If LDATE contains a one, the requested end year- month-day has been 
found in the record just before the one presently stored in READIN, 
the disk is backspaced one record, and this previous record is read 
from the disk into READIN. A comparison is made between the 
year- month-day of the last satellite data item in READIN 
(READIN (212)), and the requested end year- month-day (EN), 

21. If READIN (212) is not equal to EN, this previous record contains 
both the requested end year- month-day (at least in the first 
satellite data item from an earlier check) and a later end year- 
month-day (at least in the last satellite data item from the current 
check). Therefore, the requested period end time exists in this 
previous record. The present value in the record counter 
(IRECRD), decremented by one, is saved in the variable lENREC, 
and the time-of-occurrence of the last satellite data item in READIN 
^EADM(212), READIN(213), READIN(214))is stored in the satellite 
data end time positions in the TITLE arr^ (TITLE (7), TITLE (8), 
TITLE(9)), Thus, the actual satellite data end time contained in 
TITLE is somewhat larger than the requested period end time. A 
read and copy operation now begins according to step 25. 

22. If READIN (21 2) is equal to EN, this previous record contains the 
requested end year- month-day in all eleven satellite data items. 

A comparison is made between the secohds-of-day of the last 
satellite data item in the previous record (READIN (214)), and the 
requested end seconds-of-day (ESEC). If READIN (214) is greater 
than or equal to ESEC, execution proceeds according to step 17 
above. If READIN(214) is less than ESEC, execution proceeds 
according to step 18 above. 
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23. If LDATE does not contain a one (as opposed to step 20 above)^ 
the reqpiested end year-month-day has not as yet been found in 

the first satellite data item of any record includir^ the. one presently 
stored in REABIN. SELECT returns to the beginning of the 
search-for-end-time loop, another record is read from the disk 
into the READM array, the record counter (IRECRD) is incremented 
by one, and EEADIN(1) is examined for the presence of 9’s, 

24. If 9's are present (as opposed to step 11) a sentinel record, 

or a sentinel item record, has been encountered. The final data 
record on the disk (corresponds to the final data record on the 
input ORB3A tape) is then obtained by backspacing the disk one 
record and reading a record from the disk into READIN. The 
present value in the record counter (IRE CRD), decremented by 
one, is saved in the variable lENREC, and the following test is 
made to determine whether or not this final data record (READIN) 
contains eleven valid satellite data items. The first word of each of 
the eleven satellite' data items is checked for the presence of 9's. 

If 9's are not found, this record has eleven valid data items, and the 
variable named IFILL is left unchanged (IFILL is initialized to 
eleven).. If 9's are found, this record has less than eleven valid 
data items, IFILL is set to zero, and the location of the last valid 
data item in the record is saved. If the end time of the last valid 
satellite data item is greater than or- equal to the requested 
period end time, a read- and copy operation' now begins according to 
step 25. If the end time is less than the requested end time, an 
error message is printed -stating that: the requested period end time 
is greater than the last tinie on the input-tape; but an output ORB3A 
t^e will be generated anyway.’ A- read and-copy operation begins 
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according to step 25. Since SELECT has reached the final 
data record, the original (present) satellite data' end time contained 
in the TITLE array is not changed and therefore, becomes the 
actual satellite data end time on the output OEB3A tape to be generated. 

25, The read and copy operation is as follows. The disk is rewound 
and the TITLE array is written as the title record on the output 
OEB3A tape. Data records are then read from the disk and copied onto 
the output ORB 3 A tape for those records on the disk having record 
numbers between ISTREC and lENREC inclusive. 

26, Sentinel type records are prepared and written on the output ORB3A tape 
in the following manner. A sentinel record is prepared by placing 

9's in the first word of the TITLE array. 

If the last data record written on the output ORB3A has eleven 
valid data items (IFILL=ll), a sentinel item record is prepared 
(9’s are placed in the first 21 words of the last data record stored in 
the READIN array). A call is made to 'W^NEOP (an entry point 
to subroutine RWTAP4) in which instrucfions are executed to 
write one sentinel item record, two sentinel records, and an end-of- 
file on the ouput ORB3A tape. 

If the last data record written on the output ORBS A does not have 
eleven valid data items (IFILI>0), 'WSNEOF is called and executes 
instructions which write two sentinel records and an end-of-file 
on the output ORB3A tape. 

27, Control is returned to SELECT from WSNEOF. If the requested 
period end time has been found previously, a 

message is printed 'stating that the entire requested time period 

exists ofL the input ORB3A and has been written on the output ORB3A tape. 
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28. Finally, the actual start and end times (year- month-day, seconds- 
of-day) of the period of data. written on the output OEB3A tape are 
printed for reference and a message is printed stating a normal 
termination of the Select Time Period Option has occurred. Control 
is then returned to MAIN, and the program comes to a stop. 

4.3 USAGE 

This section presents information defining the interfaces of subroutine 
SELECT with referenced external data sets, and other subprograms. 

4.3.1 Calling Sequence 

The calling sequence is:;s 
' CALL -SELECT. ' 

There are no arguments in the calling sequence. 

4.3.2 COMMON Areas 

Subroutine SELECT makes use of .information stored in the unlabeled 
COMMON area used in-program TELOR3, This COMMON area is defined 
in the subroutine description for the routine MAIN (see Section 2. 3. 2). 

4. 3; 3 • External Data Sets 

Subroutine SELECT references a scratch file on disk (FORTRAN logical 
unit number 14) for temporary storage of data records read from the input 
ORB3A tape. These data records are written in the scratch file by SELECT 
. and are subsequently read' from the scratch file in the process of 
creating the oulpit ORB3A tape. The format of each data record stored in 
the temporary disk file is identical to the data record format on the input 
ORBSA’tape. This format is described in detail in the description of subrouti 
RWTAP4 (see Section 7.3.3). 
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4/4 SUBPR0GEA3WS CALLED 

TMs section identifies the subroutines and functions called from 
SELECT. Calling sequences used are presented, followed by definitions 
of the arguments appearing in the calling sequences. 

4..4. 1 Subroutines Called 

Subroutine SELECT makes use of subroutine EWTAP4 to read records- 
from the input ORBS A tape, and to write records on the output ORBS A 
tape. RWTAP4 has three entry points: 

RTAPE4 - Called to read the input ORBS A tape. 

WTAPE4 Called to write title or data records on the output 
ORB 3 A tape. 

WSNEOF - Called to write sentinel type records and an end-of-file on 
the output ORB3A tape. 

The calling sequences used in SELECT are listed below: 
call RTAPE4 (READIN, lEER) 

CALL WTAPE4 (TITLE) 

CALL WTAPE4 (READIN) 

CALL WSNEOP (READIN, UTLE, IWORD) 

The arguments spearing in these callir^ sequences are defined below: 

DERR: An error indicator returned by subroutine RWTAP4 reflecting 

unusual conditions encountered in reading the input ORBS A tape. 

= 0; No unusual conditions 

= 1; Ehd-of-file encoimtered 

= 4; Permanent read error encountered. 

Data are returned to calling program, but their validity 
is questionable. 
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IWORD; Mag used in WSNEOF processing for brancM:^, set by the 
calling routine. 

= 1; WSNEOF writes one sentinel item record, two sentinel 
records, and an end-of-file on the ou^ut ORB3A tape. 

= 2; WSNEOP writes two sentinel records and an end-of-flle on the 
output ORBS A tape. 

READIN; A 256-word array used to store each data record read from the 
input ORB3A tape; and to store data records and sentinel item 
records ready to be written on the output ORBS A tape. 

TITLE: A 256-word array used to store the title record read from the 

input ORB3A tape; and to store the title record and sentinel records 
ready to be written on the output ORBS A tape. 

4.4.2 Functions Called 

Subroutine SELECT makes use of the IBM system function FLOAT (IVAR) 
several times to convert the integer argument variable, represented by 
IVAR, to a real variable without round off. The calling sequences appearing 
in SELECT are; 

FLOAT (1ST) 

FLOAT (lEN) 

FLOAT (ISEC) 

FLOAT (ISEC) 
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The arguments appearing in these calling sequences are defined below: 


1ST: Eequested period start year-month-day 

lEN: Requested period end year-month-day 

EEC; Requested period start seconds- of- day 

EEC: Requested period end seconds-of-day. 

ELOWCHART 

The flowchart for subroutine SELECT appears in Figure 3. 
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SECTION 5 


SUBROUTINE DESCRIPTION -- SUNLIGHT REPORT ^UNLGT) 

Subroutine Name and Program Number SUNLGT, Number G00409 
Programmer's Name Robert K. ScKLessinger 
Date May 7, 1971 ~ 

5.1 PURPOSE 

Subroutine SUNLGT isolates the satellite data items on an input 
ORB3A tape, which are' of the sunlight entrance or exit type, and 
prints out a BCD sunlight report containing the pass number and 
time-of-qccurrence of each of these sunlight entrance or exit data 
items . 

5.2 METHOD 

Subroutine SUNLGT first prints out the column headings for a 
sunlight report and then enters a loop which performs the following 
steps: 

1. Reads an input QRB3A record into the READIN array. 

2. Checks the record to see it if is a data or a sentinel record. 

3. If it is a sentinel record, a loop exit occurs (described further 
in subsequent-discussion) . 

4. If it is a data record, SUNLGT examines the type indicator 
(first word) of each of the eleven satellite data items in the 
record to determine whether or not a sunlight entrance or 
exit data item is present (type indicator equal to 6 .or 7). 

5. If no sunlight entrance or exit data item is present, 'SUNLGT' 
returns to the beginning of the loop. 
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6. 


If a sunlight entrance data item is present (type indicator- 
equal to 6), the pass nuipber and time-of“oecurrence of 
this entrance are stored and processing returns to the 
beginning of the loop. 

7. If a sunl^ht exit data item is present (type indicator equal 
to 7), the pass number and time-of~occurrence of the last 
stored entrance item and of this exit item are printed as one 
line of output on the sunlight report. K the exit data item 
happens to be the first entrance or exit item on the input tape, 
there is no stored entrance data present, and the exit data 
axe printed as the first line of output on the sunlight report. 
SUNLGT. processing then returns to the b^inning of the 
loop. 

When a loop exit occurs (step 3 above) , SinsTLGT performs the 
following steps; 

1. If the last stored entrance data item has not been printed out, 
this entrance data item is printed as the last line of output on 
the sunlight report. This case occurs when an entrance data 
item is the last entrance or exit item on the input tape. 

2. One of two possible types of normal termination messages 
is printed on the sunlight report. 

a. Normal termination of the Sunlight Report Option has 
occurred. 

b. Normal termination of the Sunlight Report Option has 
occurred, but there were no sunlight entrances or exits 
on ORBS A input tape. 
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5.3 USAGE 

This section presents information defining the interfaces of 
- subroutine- SUN LG T with referenced external storage areas, and 
other subprograms. 

5.3.1 Calling Sequence 

The callir^ sequence is: 

. CALL SUNLGT 

There are no arguments in the callir^ sequence. 

5.3.2 COMMON Areas 

Subroutine SUNIG.T does not make use of any COMMON areas. 

5.3.3 ■ External Data Sets 

None 

5.4 SUBPEOGRAMS .CALLED 

This section identifies the subroutines and functions called from 
SUNIGT. Calling sequences used are presented, followed by 
definitions of the arguments appearing in the calling sequences, 

5.4,1 Subroutines Called 

Subroutine StTNLGT calls the RTAPE4 entry point of subroutine 
EWTAP4 to read data and sentinel records from the input ORB3A 
tape. The calling sequence used is: 

CALL ETAPE4 (READIN, TERR) 
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The arguments appearir^ in this calling sequence are defined 
below: 

EEADIN; A 256 word array used to store the data or 
sentinel record read from the input ORB3A 
tape, 

lERR; An error indicator returned by subroutine 

RWTAP4 reflecting unusual conditions encountered 
in, reading the input ORBSA tape. 

= 0; No unusual conditions 

= 1; End-of-file encountered 

= 4; Permanent read error encountered. 

Data are returned to calling program, but their 

validity is> questionable, 

5.4:. 2 Functions Called 

Subroutine SUNLGT makes use of the IBM system function 
FLOAT (IVAR) several times to convert.the integer ar^ment 
variable, represented by IVAR, to a real variable without 
round off. The calling sequences appearing in SUNLGT are: 

FLOAT (ENHR) 

FLOAT (INMIN) 

FLOAT (lOHR) 

FLOAT (lOMIN) 

The arguments appearing in these calling sequences are defined 
below: 

INHR; Hour-'of-day for a sunlight entrance data item 
INMIN: Minute-of*-hour for a sunlight entrance data item 

lOHR; Hour-of-day for a sunlight exit data Item 
lOMIN; Minute-of-hour for a sunlight exit data item. 


41 



5.5 FLOWCHART 

The flowchart for subroutine SIFNLGT appears in Figure 4. 

5. 6 RESTRICTION 


The coding of subroutine SUNLGT presumes that no more than 
one sunlight entrance or sunlight exit data item will appear 
in a single data record on the input ORB3A tape. 
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Figure 4 (sheet 1 of !)• Flowchart for Subroutine SUNLGT of the S/360 TELOR3 Program 











SECTION 6 

SUBROUTINE DESCRIPTION — CHECK ORB3A RECORD (CHKREC) 


Subroutine Name and Program Number; CHKREC, Number G00409 
Programmer's Name: Robert K, Scblessinger 
Date; May 7, 1971 

6.1 PURPOSE 

Subroutine CHKREC is used to check binary ORBS A tapes which 
had an abnormal run termination when being generated. 'Selected 
words in each record of the input OEB3A tape are checked for 
data errors, and each record is checked for a read error. The 
first input ORBSA.record to fail any one of these checks causes' 
an output, binary ORB3A tape to be generated, with the period of 
data extending through the next~to-the-last record preceding the 
check-fail.record. The output tape has a revised title record 
containing the new end time for the satellite data. 

6.2 METHOD 

Backspacing and/or rewinding of a track, binary, input ORB3A 
tape is not permitted when using the special purpose FORTRAN 
library subroutine, DBFOR, which is required for reading this 
input tape (see subroutine description for RWTAP4). Since this 
capability is desired in subroutine CHKREC , for backspacing 
and/or rewinding an input ORB3A t^e, subroutine CHKREC copies, 
onto a scratch disk, the input OEB3A data records ^eluding any 
haying read errors) up to the end-of-file. (The ORB3A title record 
has been previously read into the TITLE array by MAIN and TITLE is 
available to CHKREC when needed.) An end-of~file is then 
written on the disk, the disk is rewound, and CHKREC enters a 
loop- which performs the following steps. 



1 . 


Reads a record from the disk into the 
RE ADM array. 

2. If a read error or an end-of-file is encountered, 
an appropriate message is printed out, a loop 
exit occurs, and execution proceeds 

according to the logic described in steps 6 through 
15 below. 

3. If a read error or an end-of-file is not encoimtered, 
the data in five key words of the record (READM) 
are given the following tests, 

a. Is the day coimt of the year of the first satellite 
data item in this record {READM (3)) equal to 

or one greater than the day count of the year of the 
first satellite data item in the previotis record? 

b. Is the second-of-day of first satellite data 
item in this record (READM (4)) less than 86400 
seconds, and greater than or equal to zero seconds ? 

c. Is the third word of the special type of data 
item (READM(234)) in this record equal to 999. 

or equal to a value between zero and 100 inclusive ? 

d. Does the type indicator of the first satellite data 
item in this record (READM (1)) have a value 
between one and seven inclusive? 

e. Is the first word of the special' type of data item 
(READM ^32)) in this record equal to 99. ? 

. 4. If the results of ail of the above five tests are 

affirmative, CHKEEC returns to the beginning of 
the loop and the next record is read from the disk 
into the READM array. 
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If the result of any one of the above five tests is 
negative, an appropriate error message is printed , 

j 

a loop exit occurs, and the following steps (6 through 15) 
are executed. 

The check'fail record is printed out for reference except 
if coming from step 2 above. M coming from step 2, a read 
error or an end-of-file has been encountered. Printir^ 
out an end-of-file cannot be done and printing out the record 
causing a read error is not attempted since this record is not 
alw^s accessible. 

The disk is positioned to the beginning of the next-to-the-last 
record immediately preceding the check-fail record and this 
record is read from the disk into the PEADIN array. 

The time of occurrence of the last satellite data 
item in this record (READIN (212), READIN (213), and 
EEADIN (2 14)) is stored in the satellite data end time 
positions in the TITLE array (TITLE (7), TITLE (8), TITLE (9), 
respectively) . 

The TITLE array how corresponds to a revised title 
record, containing the new end-time of the satellite data, and is 
written as the title record of the output ORB3A tape. The 
next-to-the-last record preceding the check-fail record, 
rather than the last' record before the check-fail record, is 
considered to be the last good data record on the input ORB3A 
tape for the following reason. Three out of the five key words 
checked in a data record involve only the first satellite data 
item. It is conceivable these three words could pass inspection, 
but one or more of the same words in the ten remaining 
satellite' data -items in the record could be in error. Therefore, 
as a precaution, themext-to-the-last record before the 

check-fail record is considered to be the last good data record 
on the input OEB3A tape. 
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10. The disk is rewound and a read and copy operation 

is executed as -follows; A data record is read from the 
disk into the EEADDST array and then written on the output 
ORB3A tape. A test is made to determine whether or not 
the time-of-oceurrence of the last satellite data item in 
this record '{READIN ^12), READIN (213), READIN .'(214)) 
is equal to the satellite data end time contained in the TITLE 
array (TITLE (7), TITLE (8), TITLE (9)). If these items 
are not equal, the read and copy operation continues. If 
these times are equal, no more data records are to be written 
on the output ORB3A, the read and copy operation cbines to 
a halt, and the last data record written on the output 
ORB3A is printed for reference. 

11. .The output ORB3A title record is printed for reference. 

12. A sentinel item record is prepared (91 s are placed 
in the first 21 words of the last data record stored in 
the READIN array). 

13. A sentinel record is prepared (9's are placed in the first 
word of the TITLE array). 

14. ‘ A call is made to WSNEOF (an entry point to subroutine 

RWTAP4) in which instructions are executed to write one 
sentinel item record, two sentinel records, and an 
end-of-file on the outpufORBSA tape. 

15. -A message is. printed stating that normal ‘termination of 

the Check Record- Option has occurred, control is 
returned to MAIN, and the program comes to a stop. 
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6,3 USAGE 

This Sectioii presents information defining-the interfaces of subroutine 
CHKREC with referenced external data-sets, and other subprograms. 

6.3.1 Calling Sequence 

The calling sequence is; 

CALL CHKREC 

There are no arguments in the callii^ sequence. 

6.3.2 -COMMON Areas 

Subroutine CHKREC makes use of information stored in the unlabeled 
COMMON area used in program TELOR3. This COMMON area is defined 
in' file subroutine description for the routine MAIN (see Section 2.3.2). 

6.3.3 External Data Sets ' ' ‘ 

Subroutine CHKREC references a scratch file on disk (FORTRAN 
logical unit number 14) for temporary storage of data records read 
from the input ORB3A tape. These data records are written in the 
scratch file by CHKREC, and are subsequently read from the scratch 
file in the process of creating the output ORBS A tape. The format 
of each data record, as stored in the temporary disk file, is identical 
to the data record format on the input ORB3A tape. This format is 
described in detail in the subroutine description for subroutine RWTAP4 
(see Section 7.3.3). 

6.4 SUBPROGRAMS CALLED 

This section idenlifies the subroutines and functions called 
from CHKREC. Calling sequences used are presented, followed by 
definitions of the arguments appearing in the calling sequences. 
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6.4.1 Subroutines Called 


Subroutine CHKBEC makes use of subroutine RWTAP4 to read 
records from the input OEB3A tape, and to write records on the 
output ORB3A tape. RWTAP4 has three entry points: 

RTAPE4 - Called to read the input OEB3A tape 
WTAPE4 - Called to write title or data records on the output 
ORBS A tape. 

WSNEOF - Called to write sentinel records and an end-of-file 
on the output ORBS A tape. 

The calling sequences used in CHKREC are listed below; 

CALL ETAPE 4 (READIN, lERR) 

CALL WTAPE 4 (TITLE) 

CALL WTAPE 4 (READIN) 

CALL WSNEOF (READIN, TITLE, IWORD) 

The argiunents appearing in these calling sequences are 
defined below; 

lERR: An error indicator returned by subroutine RWTAP4 reflecting 

unusual conditions encountered in reading the input ORB3A tape. 

=0; No unusual conditions 

=1; End-of-file encountered 

=4; Permanent read error encountered. 

Data are returned to calling program, but their validity 
is questionable. 

IWORD: Flag used in WSNEOF processing for branching, set by the 
calling routine. 

=1; WSNEOF' writes one sentinel item record, two sentinel 
records, and an end-of-file on the output ORB3A tape. 

=2; WSNEOF writes two sentinel records and an end-of-file 
on the output ORB3A tape. 

READIN: A 256-word array used to store each data record read from 
the input ORBS A tape; and to store data records, and sentinel 
item records, ready to be written on the output ORBS A tape. 
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6.4.2 


6.5' 


6. 6 


TITLE; A 256-word array used to store the title record read from the 
input OEB3A tape; and a title record or a sentinel record ready 
to be written on the ouiput ORB3A tape. 

Functions Called 

None 

FLOWCHART 

The flowchart for subroutine CHKREC appears in Figure 5. 
RESTRICTION 

If an entirely good input ORB3A tape is processed by subroutine 
CHKREC, an output ORBS A tape will be generated with .the last 

output OEB3A data record corresponding to the next-to-the-last 
data record on the input ORB3A tape. 
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Figure 5 (sheet 1 of 2). Flowchart for Subroutine CHKREC of the S/360 TELOR3 Program 
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1 . hJEXT-TO-LAST RECORD BEFORE THE CHECK-FAIL RECORD RATHER THAN THE LAST RECORD 
BEFORE THE CHECK*fAIL RECORD 1$ CONSIDERED TO BE THE UST GOOD DATA RECORD FOR 
THE FOLLOWING REASON. THREE OUT OF THIS KEY WORDS CHECKED IN A DATA RECORD 
INVOLVE ONLY THE 1ST DATA ITEM. IT IS CONCEIVABLE THESE 3 WORDS COULD PASS 
INSPECTION BUT ONE OR MORE OF THE SAME WORDS IN THE 10 REMAINING DATA ITEMS 
IN THE RECORD COULD BE IN ERROR THEREFORE, AS A PRECAUTION, THE NEXT-TO-TH5- 
LAST RECORD BEFORE THE CHECK-FAIL RECORD IS CONSIDERED TO BE THE LAST GOOD , 
DATA RECORD ON THE INPUT OR63A TAPE . . 


Figure 5 (sheet 2 of 2). Flowchart for Subroutine CHKREC of the S/360 TELOR3 Program 







SECTION 7 


SUBROUTINE DESCRIPTION — READ- WRITE ORB3A TAPE (RWTAP4) 

Subroutine Name and Program Number: RWTAP4, Number GQ0409 
Programmer’s Name: Robert K. Schlessinger 
Date: May 7, 1971 

7.1 PURPOSE 

Subroutine RWTAP4 is used to read a 7-track, binary, single precision, 
ORB3A tape wbicb is the input to tbe'S/360 TELOR3 Program. In addition, 
RWTAP4 is called to create an output ORB3A tape in the same format as 
the input ORBS A tape. 

7.2 METHOD 

For each record to be read from the 7-track, binary, input ORB3A 
t^e, it.is necessary to make a call to entry point RTAPE4 of subroutine 
RWTAP4. After entering at RTAPE4 the following steps are executed. 

1. A call is made to the special purpose FORTRAN library 
subroutine DB FOR {see Reference 2 ). DBFOR allows a 
7-track FORTRAN tape to be read on a S/360 series computer 

and provides one logical record in the proper format for processing 
according to step 2 below. 

2. A call is made to the special purpose FORTRAN library 
subroutine CNVRT (see Reference 2 ) immediately after the 
call to DBFOR. The CNVRT subroutine converts the single 
precision 7094 floating point data in the logical record provided 
by DBFOR to double word S/360 floating point structured data, 
and places the results in the 256-word array named RECORD. 
Control is then returned to the callir^ subroutine. 
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Since RECORD is in the argument list of RTAPE4, the data in the 
RECORD array is available to the subroutine which called“RTA'PE4, ' 
and can be readily processed without further manipulation. 

For each record to be written on the output ,7~track, binary ORB3A 
tape containing single precision floating point data, it is necessary 
to make a call to entry point WTAPE4 of subroutine RWTAP4. After 
entering at WTAPE4 the following steps are executed. 

1. - A call is made to DATCON (see Reference 3 \ which consists of 

an existing set of S/360 Assembler Language subroutines modified for 
TELOR3 Program purposes to omit the complementing of negative 
numbers when performing the following manipulation. DATCON converts 
the double word S/360 floating point data in the array RECORD 
(in the WTAPE4 argument list) to single precision, 7094^- 
form, floating pomt data. 

2. A second call is made to DATCON immediately -after the first 
call and the converted data (single precision, 7094-form 
floating point) are written as one logical record on the 7-track, 
binary, output ORB3A tape. Control is then returned to the calling 
subroutine . 

One call to entry point WSNEOP of subroutine RWTAP4 writes the 
appropriate number of sentinel item records, sentinel records, and 
an end-of-file on the output, 7-track ORB3A tape. The method used 
to write these sentinel records is identical to that employed in entry 
point WTAPE4 processing described previously. ’WSNEOF logic is 
as foUovs^. 

1., ■ . The-IWORD flag passed’ through the argument list of WSNEOF 
controls branching in the following manner, 

a. If IWORD equals one, six calls are made to DATCON 
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(with, each two calls writing one record), resulting in 
one sentinel, item record and two sentinel' records 
being written on the output ORBS A tape. Finally, a 
single call is made to DATCON with a special flag. (-2) 
in the argument list. This call causes an end-of-file to 
be written on the output ORB3A tape. Control is then 
returned to the calling subroutine. 

b. If IWORD equals two,, four calls are made to DAT0ON (with each 
two calls writing one record) resultii^ in two sentinel 
records being written on the output ORB3A tape. Finally, 
a single call is made fo DATCON to write an end-of-file 
on the output ORB3A tape. Control is then returned to the 
calling subroutine. 

It should be noted that when DATCON is used, two initialization calls must 
be. made to this subroutine: These two calls are accomplished as follows, 
Ih'the initialization section of MAIN a call is made to'RWTAP4 (standard 
entry point) . Upon entering RWTAP4 the following steps are executed. 

1. A call is made to DATCON with a.special flag (97) in the 
argument list. This flag causes the output ORB3A tape to be 
generated by DATCON to actually have a UNIVAC 1107 type 
format. 

2. A second call is made to DATCON with the argument list specifying 
the FORTRAN logical' unit number on which the output tape will be 
written (unit number 15) and specifying the number of- 36-bit words 
in one record on the output tape (253 data words; control words are 
not to be counted). GontroLis fhen returned to MAIN. 
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7.3 


USAGE 


This section presents information defining the interfaces of 
subroutine EWTAP4 with referenced external storage areas, and 
other subprograms. 

7.3.1 Calling Sequence . 

The calling sequences of the .standard entiy point and the three 
nonstandard entry points are, respectively: 

CALL RWTAP4 

CALL RTAPE4 (RECORD, lERR) 

CALL WTAPE4 (RECORD) 

CALL WSNEOF (RECORD, RECRDl, IWORD) 

The arguments appearing in the RTAPE4 calling sequence are 
defined below: 

RECORD: A 256-word array used to store a record read from the 

input ORB 3 A tape. . 


lERR: An error indicator returned by subroutine RWTAP4 

reflectiDg unusual- conditions encountered in reading the input 
ORB3A tape. 

= 0; No -unusual conditions - 
= 1; End-of-file encountered 

• = 4; Permanent read error encountered. Data are returned 
to calling program, but their validity is questionable. 

The argument appearing in the WTAPE4 calling sequence is defined 
below: 

RECORD:. A 256-word array used to store a title record or a data 
record ready to be written on the output ORBS A tape. 
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The argumeuts appearing in the WSNEOF caHing sequence are 
defined' below; 

RECORD: A- 256-word array used to store a seutinei item record 

ready to be written on the output ORB3A tape. 

RECRDl: A-'256-word' array used to-store a sentinel record re^y to 

be written on the output ORB3A tape. 

IWORD: Flag used in WSNEOF processing for branching, set 

by the calling routine. 

= 1;, WSNEOF- writes one sentinel item record, two sentinel 
records, and an end-of-file on the output ORB3A tape. 
= 2; WSNEOF writes two sentinel records and an end-of- 
file on the output ORB3A tape. 

7.3.2 COMMON Areas 

^broutine RWTAP4 does not make use of any COMMON areas. 

7.3.3 External Data Sets 

Subroutine RWTAP4 interfaces with two external data sets: 

1. The input, binary ORB3A tape. 

2. The output, binary ORB3A tape. 

These tapes are read or written, as appropriate, by subroutine 
RWTAP4. A detailed description of the content and format of these 
input and output tapes (which are identical in format) follows. 

The format of a 7- track floating point binary ORBS A tape, is defined 
in Tables 1,2, and 3. It can be seen there are three kinds of 
records on an ORB3A tape: ,(1) the' title record (Table 1); ,(2) data 
records (Table 2); and (3) sentinel records .(Table 3). Each record 
contains 256 words, A set of notes pertaining, to format for all three 
record lypes appears at the end of Table 3. Actual floating point dumps 
of an ORB3A titio and data record are shown in Figure A-6. 
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TABLE 1: 0RE3A Tape Title Kecord Format 


Word 

Number 


0 


1 

2-3 

4 

5 

6 

7 

8 
9 

10 


11 


12 

13 


14 

15 

16-2€ 

27 

28 
29 

30-4C 


Description 


FOETRAN data record size iDdicator=0 003750 1Q001g 

(Underlined octal number indicates a total data word count 
of 253 words) . 

Form of data identification = 76799361 
Satellite identification 


Date 

Day Count of Year 
Seconds of Day 

Date 

Day Count of Year 
Seconds of Day 


U, T. Start Time 
of Satellite Data 

U. T, End Time o: 
Satellite Data 

equal intervals 


=At in seconds, if tape has 
=: 0 , if tape has unequal intervals 


No, of data items in data record = 12 
(includes a special type of item as item no. 12) 


No. of words per data item =21 

No. of words per data’ item that are a function of time 
(these words follow the time words consecutively) = 16 


No. of words -in data record = 256 
Spare 


Eun identification data 
Date 

Day Count of Year 
Apparent Sidereal Time 
in radians 

TJsed^for harmonics, etc. 


Coordinate System Deference 
Data Time and Position 
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TABLE 1: ORB3A Tape Title Record Format (Continued) 


Word 

timber Description 


41 

42 

43 


Date 

Day Count of Year 
Seconds of Day 


Epoch 


44 Seini-major axis, a (km.) 

45 Eccentricity, e (ratio) 

46 inclination, I (deg. ) 

47 Right ascension of ascending node, n (deg. ) 

48 Rate of change of R, A. of ascending node, n (deg. / day) 

49 . Argument of perigee, CO (deg.) 

50 • Rate of change of argument of perigee , co (deg. /day) 

51 Period, P (min.) 

52 Rate of change of period, P (min. /day) 


53-253 Used for elements, drags, etc. 


254 Check sum of words in word no. 1-253 

255 Same as word 0 



TABLE 2: .ORB3A Tape Data.Record Format 


Word 

ISlumber . Description 


0 


1 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 


FORTRAN data record size indicator = 000375 010001. 
(Underlined octal number indicates a total 
data word count of 253 words.) 

•lype of data item indicator 

1 = regular satellite data item 

2 = ascending node crossing data item 

3 = north, point data item 

4 = descending node data item 

5 = south point data item 

6 = sunlight,entranee data item 

7 = sunlight exit data item 


Date of data 
Day Count of Year 
Seconds of Day 


Time of Data Item 


X Satellite Position , 

Y Vector in km. 

Z 


X 

Y Satellite Velocity 

Z Vector in km. /sec. 

, 

Longitude (deg.) 

Latitude (deg.) 

Height above spheroid (km.) 


Geodetic Position 


SX’ 

SY 

SZ 


Solar Vector in A.U. 


L (earth radii) McEwain L Parameter 

B (Gauss) Magnetic Field Strength 
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TABLE 2: ORB3A Tape Data Record Format (Continued) 


Word 

iSfurober Description 


19 

Right ascension (deg.) | 

Real Field Inertial 

.20 

Declination (deg. ) | 

Coordinates 

21 

Ascending node crossing no. ^ass no.) 

22-231 

10 other satellite data items 

232 

=99 (type of data indicator) 

233 

Year of Data 

. 

234 

= 999 if no ascending node item occurred 
= % of orbit in sunlight if an ascending node item 


occurred in this record 


• 235-252 

253 

254 

255 


Spares in last item 
Spare in record 

Check sum of data words in word no. 1-253 
Same as word 0 
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TABLE 3; 0RB3A Tape Sentmel Record Format 



2. Longitude-is positive east of Greenwich; negative west. 

3. Northern latitudes are positive; southern latitudes are negative. 

4. Date of data = day + 100 (months + year (100)). (Example; 

Feb. 10, 1962 at 2 hours is recorded as 620210 in date of data, 
41 in day count of year and 7200 in seconds of day), 

5. The satellite and the solar position vectors are referenced to 
an equatorial coordinate system with the origin at the carter 
of the earth, the x-*axis in the direction of the vernal equinox, 
the z-axis along the North Pole of the earth, and the y-axis 
forming a right-handed coordinate system. 


6. Reference day data of apparent sidereal time is obtained from 
" The American Ephemeris and Nautical Almanac" for the given 
year. 
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TABLE 3; OE.B3A Tape Sentinel Record Format (Continued) 

7. The last valid data item in a data record is follD(ved by an 
item of 9's. If the last valid data item fills a record, a 
data binary record follows which contains 9’s in words 1-21. 
9's are equal to 99999999 in floating point. 
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Information in an ORBSA title record, used by the TELOE3 
Program, consists of: the OEB3A tape identification code 
(word 1); the satellite identification (words 2 and 3); the start time 
of satellite data on toe tape (words 4, 5, and 6); and the end time of 
satellite data on the tape (words 7, 8, and 9). 

A data record (Table 2) contains eleven satellite data items plus 
one special type of data item. The twelve data items contain 
21 words each- Information used by the TELQR3 Program from a 

satellite data item consists of: the data item type indicator (word 1 
in each data item); the data item time- of- occurrence (words 2, 3, and 4 
in each data item); and the ascending node crossing number, or 
pass number (the '21st word in each data item). The pass number 
in a satellite data item is one larger than the precedir^ data item pass 
number, when the present data item is of the ascending node crossii^ type, 
if a data item is of the ascending node crossing type, the first word 
of the data item contains a type indicator equal to 2. 

Any particular ORBSA tape can have all regular satellite data items 
separated by equal intervals of time. Typical intervals are 
60 and 120 seconds. Regular satellite data items on a given tape can 
also be separated by tmequal intervals of time. The tenth word in 
the ORBSA tide record contains the time interval in seconds, if 
equal intervals are involved, or a zero if unequal intervals are 
involved. 

Information stored in the third word of the special type of data item in a 
data reeoid. is used by the TELOR3 Program. The presence of 999. 
in this word indicates that no ascending node data item exists in the 
entire record. 
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A sentinel record (Table 3) results from placing nines (99999999) in 
the first word of a data record. A sentinel record appears after 
either of two possible forms, of a final data record on an ORBS A tape. ' 
When there is not enough data available to fill all eleven satellite data 
items in the last data record on the tape (which is usually the case), 
the next data item is filled with nines (all 21 words). This form of a 
final data record is followed by two sentinel records and an end-of-file . 
The second form (relatively rare) of final data record exists when there 

is exactly enough data to fill all eleven satellite data items in the 
last data record on the tape. This form of a final data record is followed 
by one sentinel item record (a data record containing nines in the first 
21 words), two sentinel records,, and an end-of-file. 

7.4 SUBPROGRAMS CALLED 

This- section identifies the subprograms (subroutines and fiinctions) 
called from RWTAP4. The CALL statement for each call to each 
subprogram is given, followed by a definition of the calling sequence 
arguments. Where multiple calls to the same program are made from 
RWTAP4, the calls are presented in the order in which they appear 
in the source listing, 

7 . 4, 1 Subroufines Called 

1. Subroutine DBFOR - This subroutine is called to read the input, 
7~track, binary ORB3A tape and provides one logical record in 
the proper format for processing by subroutine CNVRT. 

2. Subroutine CNVRT - This subroutine is called to convert the 
single precision 70 94- form floating point data in the logical 
record provided by DBPOR to double word, S/360 , floating point 
struchireddata and place the results in the 25 6- word array named 
RECORD, 
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3 . 


Subroutine DATCQN - Tbis subroutine is .called to convert 
the double word, S/360 floating point data in the array RECORD 
, or RECRDl to .single precision, 70 94-form floating point data, and 
to write the converted data as one logical record on the output , 

7- track, binary ORB3A tape. 

The calling sequences used in RWTAP4 and definitions of the arguments 
in these calling sequences are listed below. 

1. Calls to DB FOR 
CALLDBFOR (256, lADD, lERR) 

The calling sequence ar^ments are defined below. 

256: The size of, an input- ORBS A tape logical record in 

7094 words (includes control as well as data words). 

lADD: The beginning address of the input ORB3A tape logical 

record read and stored by DBFOR. Returned to the 
calling program (RWTAP4) from DBFOR. 

lERR; An error indicator returned to the calling program 
(RWTAP4) reflecting unusual conditions eneoimtered 
in reading the input ORB3A tape. 

= 0 ; No unusual conditions 

= 1; End-bf-flle encountered 

= 4; Permanent read error encountered. 

Data are returned to calling program, but 
'their validity is questionable. 

2. Calls to CNVRT 

CALL CNVRT'(IADD, RECORD, 256, 2, JERR, 1) 
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The calling sequence arguments are defined below. 

lADD: The beginning address of the input ORB3A tape record 

read and stored by DBFOR. 

KECOKD; A 256-word array containing the data after conversion. 
Contains a record read from the input ORB 3 A 
tape. 

256: The number of 7094-form words to be converted. 

2: Indicates the type of conversion to be performed 

(single precision 7094 floating point to double word 
S/360 floatirg point). 

JERK; Contains a code to- indicate a certain error condition. 

This variable is not used in the TELOR3 program. 

1: The number of the 7094-form word which is to be the 

first to be converted. 

3. Calls to DATCON 

CALL DATCON (97) 

CALL DATCON (JOUTBN, 253) 

CALL DATCON (47, RECORD, 253, JOUTBN) 

CALL DATCON (JOUTBN, -1) 

CALL DATCON (47, RECORD, 253, JOUTBN) 

CALL DATCON (JOUTBN, -1) 

CALL DATCON (47, RECRDl, 253, JOUTBN) 

CALL DATCON (JOUTBN, -1) 
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CALLDATCON (47, RECRDl, 253, JOUTBN) 

CALL DATCON (JOXJTBN, -1) 

CALL DATCON (JOUTBN, -2) 

The arguments appearing in these calling sequences are defined 
below. 

97; A wMch-causes the oufput OEB3A tape generated 

by DATCON to have a XJNIVAC 1107 lype format. 

JOUTBN; The FORTRAN logical unit number on which the output 
ORB3A tape is written. 

■ 253; The number of 36-bit words in one record on the output 

ORB3A tape (253 data words; control words are not counted). 

47; Indicates the lype.pf conversion to be performed (double 

word s/s 60 floatingpoint to single precision 7094-form 
floatingpoint). 

RECOBD: A 256-word array containing the data to be converted. 

Contains a title record, a data record, or a sentinel 
Item record ready to be written on the output ORB3A 
tape. 

A fl^ which causes DATCON to write a record on the 
ouiput ORB3A tape. 

RECRDl: A 256-word array containing the data to be converted. 

Contains a sentinel record ready to be written on the 
output ORB3A tape. 

-2; A flag which causes DATCON to write an end-of-file 

on the output ORBS A tape. 
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7'. 4. 2 


7.5- 


7.6 


Functions Called 

There are no function subprograms called by RWTAP4. 
FLOWCHART 

The flowchart for subroutine RWTAP4 appears 
in Figure 6. 

RESTRICTION 

Subroutine RWTAP4 reads and writes only 7- track, binary 
ORBS A tapes containing single precision floating point 
data. 
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INITIALIZATION CALL 
WHICH CAUSES OUTPUT 
ORB3A TAPE TO BE 
GENERATED BY DATCON 
TO ACTUALLY HAVE A 
UNIVAC 1107 type 
FORMAT 


INITIALIZATION CALL SPECIFYING 
FORTRAN LOGICAL UNIT NO /ON WHICH 
OUTPUT ORB3A WILL BE WRITTEN & 
SPECIFYING NO. OF 36-BIT WORDS IN . 

1 RECORD ON OUTPUT TAPE (253 
DATA WORDS. CONTROL WORDS ARE 

NOT TO BE COUNTED) 

: 


I 




NOTE: 

1 , DATCON iS A FORTRAN LIBRARY SUBROUTINE MODIFIED FOR TELOR3 . 

PROGRAM PURPOSES TO OMIT THE COMPLEMENTING' OF NEGATIVE NUMBERS. 


Figure 6 (sheet 1 of 4) . Flowchart for Subroutine RWTAP4 (Standard Entry Point) of the S/360 TELOR3 Program 





f ENTER 

RTAPE4 / 


DBFOR ALLOWS 7-TRACK FORTRAN 
TAPE TO BE READ ON A S/360 
SERIES COMPUTER & PROVIDES 
1 LOGICAL RECORD IN PROPER 
FORMAT FOR FOLLOWING CALL TO 
CNVRT 


CALL 

DBFOR 


CONVERTS THE SINGLE PRECISION 7094 
floating POINT DATA IN LOGICAL 
RECORD PROVIDED BY DBFOR TO DOUBLE 
WORD S/360 FLOATING POINT DATA & 
PLACES RESULTS IN 256-WORD ARRAY 
NAMED RECORD. RECORD NOW 
CORRESPONDS TO AN INPUT ORB3A TITLE, 
data, OR SENTINEL TYPE RECORD 


! 


CALL 

CNVRT 


RETURN 




NOTE; 

I . DBFOR & CNVRT ARE FORTRAN LIBRARY SUBROUTINES. 

s • 


Figure 6 (sheet 2 of 4) , Flowchart for Subroutine RWTAP4 (Non-Standard Entry Point RTAPE4) of the 

S/360 TELOR3 Program 





CONVERTS DOUBLE WORD 
S/360 FLOATING POINT DATA 
IN THE ARRAY RECORD TO ' 
'single precision 7094 
FLOATING POINT DATA 


WRITES THE CONVERTED 
DATA (SINGLE PRECISION 7094 
FLOATING POINT) AS 1 LOGICAL 
RECORD ON THE 7-TRACK 
OUTPUT ORB3A TAPE. THIS 
OUTPUT ORB3A RECORD 
CORRESPONDS TO A TITLE OR A 
DATA RECORD 



. NOTE: 

1 . DATCON IS A FORTRAN LIBRARY SUBROUTINE MODIFIED FOR TELOR3 

PROGRAM PURPOSES TO OMIT THE COMPLEMENTING OF NEGATIVE NUMBERS. 


Figure 6 (sheef 3 of 4), Flowchart for Subroutine RWTAP4 (Non-Standard Entry Point WTAPE4) of the 

S/360 TELOR3 Program 




00 


CONVERTS DOUBLE WORD 
I 5/^0 flOATING POINT DATA 
IN THE ARRAY RECORD TO 
SINGLE PRECISION 7094 
FLOATINGPOINT DATA 



WRITES THE CONVERTED DATA 
(single precision 7094 FLOATING 
POINT) AS 1 LOGICAL RECORD ON 
THE 7-TRACK OUTPUT ORB3A 
TAPE. THIS OUTPUT ORB3A 
RECORD CORRESPONDS TO A 
SEMTINEL fTEM RecORD 


CONVERTS DOUBLE WORD 
S/aW FLOATING POINT DATA 
IN THE ARRAY RECROI TO 
SINGLE PRECISION 7094 
FLOATING POINT DATA 


WRITES THE CONVERTED DATA 
(SINGLE PRECISION 7094 
FLOATING POINT) AS \ LOGICAL 
RECORD ON THE 7-TRACK 
OUTPUT ORB3A TAPE. THIS 
OUTPUT ORB3A RECORD 
CORRESPONDS TO A SENTINEL 
RECORD 









CONVERTS DOUBLE WORD 
lS/360 FLOATING POINT DATA j 
IN THE array RECRDl TO 
SINGLE PRECISION 7094 
FLOATING POINT DATA 


WRITES THE CONVERTED DATA 
{SINGLE PRECISION 7094 
1 FLOATING POINT) AS I'LOGICAL I 

(record on the 7-jrack Output | 

ORB3ATAPE. THIS OUTPUT 

|orb3A record corresponds to I 

A SENTINEL RECORD 


WRITES AN END-OF-FILE | 
ON OUTPUT ORB3A 
TAPE 



NOTE- 

1 . DATCON IS A FORTRAN LIBRARY SUBROUTINE MODIFIED FOR TELOR3 

program purposes to omit the complementing Of negative numbers , 


Figure 6 (sheet 4 of 4). Flowchart for Subroutine RWTAP4 (Non- Standard Entry Point WSNEOF) of the 

S/360 TELOR3 Program 
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APPENDIX A 


S/360' TEL0R3 PROGRAM TJSER^S GUIDE 

A.l LANGUAGE AND SYSTEM 

Tlie S/360 TELOR3 Prograin has been compiled under FORTRAN IV, 
level H, optimization level of zero on the IBM 360/95 using 
Release 19. No changes are necessary to run this program on 
the 360/75, 

A. 2 PROGRAM INPUT 

A. 2,1 Tape Input 

' • One 7-track, binary ORB3A tape containing single precision floating 

point data (see Section 7. 3. 3 for detailed tape format description 
and Figure A-6 for a numerical example). 

A. -2. 2 Data Card Input 

A. 2.2.1 Option Card 


Format 

Colunms 

Variable 

Description 

i 

11 


KASE 

Used to select TELOR3 
option desired (see below). 

8X 

2-9 


Blank 

F6.1 

10-15 

VALUE 

Used with Change Pass 


Numbers and Report Option, 

A number which is one less 
than the desired value for the 
pass no. of the first ascending 
node crossing data item to be 
written on the output ORB3A 
tape. 

4X 16-19 Blank 
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rormat Columns' ^ ' .Variable Descrtptiori 

A6 20-25 ' -TAPEm Input ORBS A tape no. 

(left adjusted). 

KASe = 1, Ascending Node Report Option 

KASe = 2, Change Pass Numbers and Report Option 

EASE = 3, Select Time Period Option 

KASE = 4, Sunlight Report Cation. 

KASe = 5, Check Record Option 

A. 2. 2. 2 Select Time Period Card 

This card is required when using the Select Time Period Option and 
eontmns the requested start and end times of the period of data to be 
selected from ah input, binary ORB3A tape and written on an output, 


binary ORB3A tape. 



Format 

Columns 

Variable 

Description 

16 

1-6 

1ST ' 

' Requested START YRMODY 
of interval of data to be 
selected, e.g. 710507. 

IX 

7 


Blank 

14 

•8-11 

JHR 

Requested START HRMN, 
e.g. 1758. 

IX 

12 


Blank 

16. 

13-18 

lEN 

Requested END YRMODY 
of interval of data to be 
selected. 

IX 

19 


Blank 

14 

20-23 

lEHR 

Requested END HRMN 


'A-2' - 



PROGRAM OUTPUT 


Tape Output 

Outputr-tape format is identical to the input tape. See Section 7.3.3 
for detailed tape format description and Figure A-6 for a 
numerical 'example. 'Program tape output associated with each of ' 
the five TELOR3 options is listed below; 

1. . Ascending Node Report Option: 

None, 

2. Change Pass Numbers and Report Option: 

A new T-trackljinaiy ORB3A tape (single precision 

, floating point) which is a duplicate of the input ORB3A 
tape with the exception that the output tape contains 
altered pass nunabers. 

3. .Select Time Period Option; 

A new 7- track, binary ORB3A tape (single precision 
floating point) containing period of data selected from 
input ORB3A tape. 

4. Sunlight Report Option: 

None 

5. Check Record- Option:' 

A new 7-track, binary ORB3A tape (single precision 

floatii^ point) with the period of data extending through 
the next-to-the-last record before the check-fail record. 



A.3.2 


System Printer Output 


A. 4 


1. Ascending Node Report Option: 

Report listing the times of. the .ascending node 
crossing numbers ftiass numbers). present on the input 
.ORB3A tape and listing the. period of time- between 
successive pass numbers. 

2. Change Pass Numbers and Report Option: . 

An ascending node report based on the output ORBS A 
tape. 

'3. ‘ Select Time Period Option: 

Summary showing both requested and actual time period 
selected for output ORBS A tape. 

4. Sunlight Report Option: 

Report listing the times of satellite sunlight entrances 
■ 'and exits "present on the input ORB3A tape. 

5. Check Record Option: 

Summary showing the type of error found in a data 
record on the input ORB 3 A tape, a display of the record 
containing the error, a display of the last data record 
written on the output ORBS A tape, and a display of the 
' output .ORBS A tape title, record. 

PROGRAM SCRATCH FILES 

If the Select Time Period Option or the Cheek Record Option has 
been chosen, the TELOR3 Program uses a scratch file on disk 
for temporary storage of data records read fcom the input ORB3A 
tape. These data records are subsecpientiy read from the scratch 
file in the process of creating the output ORB3A tape. 
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SAMPLE DECK SETUP ■ 


A. 5 

A sample deck set up along with a set of notes Is showu in Figure A-l 
for the Select Time Period Option since this option (as well as the 
Check Record Option) requires the maximum device configuration 
used by the TELOR3 Program. It is assumed in this example that 
a TELOR3 object deck has been made and placed on tape. The 
object deck includes t he system utility routine DATCON wMch has been 
modified for TELOR3 Program purposes to omit the complementing 
of negative numbers when converting data and subsequently writing 
this data on an output 0RB3A tape. 

A. 6 SAMPLE SYSTEM PRINTER OUTPUTC 

Sample run printouts for the five TELOR3 options are presented in 
Figures A-2 through A-6. A list of option sample printouts and 
figure numbers appears below; 

1 . Ascending Node Report Option: Figure A-2 

2. Change Pass Numbers and Report Option: Figure A-3 

3. Select Time Period Option: Figure A-‘4 

4. Sunlight Report Option: Figure A-5 

5. Check Record Option: Figure A-6, 
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//ZRRKS004 JHR ( GI 00 11 31 1 F » Tt 000409 » 00 300 3 ) , OOO » MSGI.EVFL = 1 » TYPRUM=HnLn 

■ y7“FXFC''LTMK'G0 

//TAPFLIR DO D.SM = TFLnR3,vnL=SFR = l067H A 

TTLTWKTSY S riTa-On'”?; ~ 

TN!CU)DF TAPELIR 

■"FNTRy MAIN : 

//On.SYSUDUMP DO SYSntlT=A ■ ' . - . . . ' 

//on: FORTA'P ‘ DO.'. D5^r4MF = ^^FfJR3AT^^^^T^2yY)TF^'7 B 

// ■ LaREL = UBLP) tOISP= (niOtKEEP ) t V0IJIMF = SER=450aH, 

■/ /' nc B = ( L RFC L = r54‘2; A FKST7 F=13‘42Tn'E7^r) 

//On.FT14F001 on IIWI T=DISK»SPACE= (hVL, (30tA) > , c 

// nCR= (RECFM=V‘S,BLKSrZE^20'56) 

//GO'.FTIBFOOI -on D'SW A MF=OR 3DI) T »nNI 7=2400-7 , ni SP= ( WFW , KF EP ) t ^ 

// LABEL=( ,BLP)-*Vnn3MT: = FER=TRTrNC; 

// DCB=( RFCFM=F ,'DFN' = 1 tRLKSIZE = IB36 ) 

■r/Gn,OATAB TlO * - " — T-^— ' 

3 ■ 45ft8H ... p 

700718 0700 700724 0700 ^ 

/ **' . : 


_ Notes _ , _ j . . . - 

A. Specifie_s TELOR3 Obj ect Pro g ram tape no. (1067H). -Hequired for all 

options [j ^ ^ 

?■__ inpu t 0RB 3 A tape (4568H). Requ ired for all options. 

C. Defines scr atch, disk sp ace nece ssary for processing an input ORB3A tape 

cont^ni]^_ appr oximately one montli of data. This scratcti disk is required 

on ly for til e Sele c t Time Period Option and the Check Record Option. 

D. Defines cfuiput ORB3A ta pe (1811 M). Required for the Change Pass Nu rt iber s 


.and .Report Option, the S elect Time 
Option. 


and the Check Record 


E, Opfion card. Required for all- optio ns. Specifies option desired, input pass 

..number. (only needed for Change Pass N umber s a n d R e port Option), a nd 

input ORB 3A tape numb er. 

F. Select .time period c^d. Require d onl y fo r Select Time Period Option. 

Specifies the requeste d start and end times (YRMODY, HRMN) of the d at a to 

be written on the output ORB3A tape. 


Figure A-2. Ascending Node Report Option Sample Run Printout 
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// EXEC LINKGO 












A-9 


- F ~t r2 a'*tr£ Vizi; — L-I-&T-— — * -- 
VA^MArJut Jprioro USLD - SI^r = ( JC7200 ti220B)- 
^^w.aocu3. i-MCL4JDii— rA^ieui-d 


DbFAULT OPUONCS) USED 


lEWOOOO 


ENTRY lAAIN 




CawTROL bECriON 


ENTRY 









name 

01? IGiN 

LliNliTi 

NAME 

LOCATION 

name 

LUCAT ION 

NAME 

L0CATI3M 

NAME 

LOCATION 


MA IN 

A^CEN^X 

03 



LO^ 










SEUECT 

?| 

1370 












CHKF-<CC 

31^0 

COm> 










D A "TO G N^^«— 



RT APCA 

AOCC 

WTAPE4 

4148 

WSNEDF 

41AC 




--^^^V44^T 

/ 

... 


BATCON 

4238 








DBFOH ♦ 


2A? 













F36F90 

5bb*3 











IBCOMs 

582B 

Fotacs^ 

88E4 

INTSWTCH 

674= 




-4t— 



SfcUDASD 

■ bAES 








FUT ^ 

tjbcy 

^ Jj 

.,FSrF-S — 

-i^RTrt 








FIXI-LT * 

7100 

Ibl 

I TF 5 


j3r.<?n . 







FIX * 

7238 

1 ij 

— 

-7-aso— 








M ^ 

TU4ANS .... » - 

7078 
_ 74o^ 

Dzt 










lUCFCVTh^' 

7bA0 

1190 










„^f44<=.pifSf4.T W3*^. 



rcviujfp 

7 073 

FCVfcOUTO 

ao7A 

FCVCOliTP 

829a 

INT6SWCH 

8576 


1-HGSF-I Os*-- 



ARITH= 

86E0 

ADJSWTCH 

8A4C 







nCf-_a 


FI acs= 

aSFQ 

riQCSOEP 

OBFE 






cmprs ♦ AadO i 


A^-0 


ERRHON 

A420 

IHCERRE 

A438 






ihcetrch* 

0018 

2 6^ 

14AC«CW^. 

80 Ui- 

EJiUIffA, , 

QQ^Q 







* (JLANKCOM 








bwe- 








NAMe- 


SNFNY AODM,*S ji 

■ y - OT '. L LEM jTU 


OOc->~ 4.tr-<-(.-*.t-bT-nOT.|lA» 1HI.«N AOOCI) TO OAT A SCT” 


IlOCA.'UOJJ btAHS L0CAT4 ON. 


•A-IO 



A-11 


IGF^eSI VOL SER NOS= Gl^Ybl. 


-Kept- 


-JCEP.T- 


t EF2e=3 I 

teprfRsi.. 


VOL SE« NOS= Gls^YSl. 
->SYS2 .aUi4MY 


iGFaasi 

IEF235I 

I EF26S1 
■ C - eP^ 9<9 l- 


VOL SFR N03s Gl^VSl# 
FU>R-TM-rf 




VUL SEP NUb= GloYSl* 
i fci 


VOL S>ER NUS= GIS YSt • 
- S Y - S - l“ » PL-l ’ L FH 


-KCP^ 


lEF28t>t 
■ FFFPfiSI 


VOL StR NOS» Ll^YSl. 

^TPl TM] l.j 


-KJ-J5X- 


I EF285F 
-LfTiL?.8.*5.I- 


VQL SGR NOS=i Gl^Ybl • 
aYL2 *i,iJ ftOL la 


— K-GRT- 


I EF23&1 
l E FaR ^ I 


VOL SGR NOSs 
■ ^Y.S-t->.SSPAfc; — 


-KUEFU- 


I EF285I 


IEF28SI 


IEF285 r 


VOL SER N03« GlbYSS# 


VOL SER N(JS= Gl^CRA* 


VOL SER NUS= GlbCRA* 


r*LOOWOO- 


-P-ASSLO- 


}!-• KOO^OO-^A- 


-s Ysour- 


— D€tGT.SO- 


VOL SER NiDSs 
- TELQR3 


Gl^CRA. 


-KEPI^ 


iGFSeSi VOL SER NOS= 1 Oo 7H • 

— I-ei^3.8-b-l S Y - S 7 - l - l >Se >- T - i S - 0 ^a^-^KSOO !*• S004>0a96- 

IEF2Q5I VOL SER NGS= bl^CRJ. 




IGF2SSI VOL SER i'J03= GISCRS. 

CPU=OQO*l 1/0=000.1 CUR£=OOO.l CHARGE =000 »0 6 STEP-O 1 LINK 




TERMINAriDN TIME=21 *01 *34.68 OATE-06-07-71 

36*0 RLLMs l-fJ^PEsjJtAA.AA*-* = yhP^»*"***** tOO 

STEP REGION SIZ(£=03: OK MAXIHUM REGION SIZE USED=0300K PERCENT OF REGION OSED = 99 

XXFT05F001 00 0DNAME=0ATA3 ” ” 00003300 


■>00.00. 2 400- 


XX 


XX 


L-8 0^ 3 L^CSXZ E=-7-28 O^U 


-4- N - SgfiT . 


SPACE=(CYL. (1. 1) ) 
SPACe^( TWX. <l,20>) 


00002500 
^000-260 fl- 


OO002700 


XXSYSPRINT 00 



SYSaUT=A,0CB=(ReCFM=:VeA#LftECL=125 ,BLKSI ZE=629) , 


00002900 

-00^03000- 


//GU.SYSOOUMP OO SYSOUT^A 


// LA3EL = < ,BLP) *OIbP = ( OLO* KEEP) * V0LgMS=SFR=4S 17H . 
'■/■/■ 'Qg.a-ff(.LnECu-15>taiaLY.S14a-*l7A?*r>-N:-t i 


//GO.OATAS oo * 
-/v 


IEF236I ALLOC. FOR 28RKS00I GO 

j.g, F - 2 - S7 - I — A4-rLU CAJ'^S-O j:4-J9jC;M^Jk.*00 - 

IEF237I 230 ALLUCATEO TJ FTOSFOOl 

1EF 83 7I . 1 30 ftLUOrTA.reO TJ FT06Eom, 


IEF237I 332 
— I,gK2n37-|-^T30 


ALLOCATE^ TJ 5YSPR1NT 


IEF237I ODO 


ALLUCATEO Td FORTAP 








- INPUT - Q *<^a^K/»- TAPt: -- N &^ l-S-i».S-l-7-H S-AtF ttW-6— to— ON— 1 


-DATE JIR- 


INPLIT OSOJA SATELLITE DATA START TIME 68 1 1 3C 


0 






7^83 &81202 337 13 57 13 • 97.07 

7-284 : 681-802 33T IS 34 U8 ^ 07 . 0 7 

7285 631202 337 17 11 22 97.07 



L3 















PASS • 

ASCENDING 
nATf=^ nAii_ OP vt>. 

MODE , 

HD M TM 

<?pr 

PERIOD 

. MT \JtlT=^ A 

72B9 

681202 337' 

23 39 

39 

97.07 


Am 'X 

- 1 

_ _ 

Q7.07 


T TPlM rif;^ AArsTMATMA Mf.AF OCPAOT 

-nPT rnw^ 



• 


A- 14 



A- 15 


p-Asseo 


-S-Y-SIN-— 


-- 1 -ef=2->J-3 I :-5 7-1 htrd j-T-1 » -ro>Wi RV-3-0 O .-Z« ^ K-b O 0 1-.- Ul JD MOD 

IEF2S5I VUL Sfi^ N03= C.ljC?A. 

—I eFiHJtrl SYS-7-1 l-b-i v*0O.-XririKS00 It&OO 00900- 

lEFaS"}! VUL StP NU£= GliClil. 

IEF2a&l VUL Utrt iHUS= Gl^CPl. 

— l-eF-aoU-I SYvi-7-l FW-.-T l-S-t^tiTjA-^bVUOO.-aiiWXSOOl-. POOOOa<57 S-Y-S-OUT — 

ILFaauI VUL btP fJOas UIjCKA. 

~.IEF2-05t SY-b7 1-1-58. T-1 A>^UUa-..a>-V 0 00. 28PKS001 . P0000898... DELOTliO- 

IEF2b‘ol VUL SfcP NdJ= oIjCPV. 

I.t^jraeai P K-S0<H-.4J 00 00009 DOLEO^eD- 

lEFEdbl VOL SER MUSs GljCUA. 

— 1-E MOOJA — K-BP-T 


IEF20SI VOi. StH NUi= AS17H . 

_-^.=^-.=j_00-*IOR- 1 - 1 — >' Ti-.a__si.j.u.,_r., A .caRKiiOCIl _GU - , PGM=PGM= *.00- CAROS^aQOOJ U4-LrXAXJ-aN.LLLME.= ? I ,, fl . l .,. T q>J)a- O A TE=0 6 ~07-7 1 

CPU=000.1 1/0 = 300. 1 COHF-=i)CO. 1 CH AMC»E = 000 . 09 STEP-02 GO TERMINATION TIME=21 . 02. 28> 90 OATE=06-07-7l 

T -"i l ~^1M F UY I TVI I RU i t ^ r, ■> , t an rrr*A A atAg - i i , i-Fi = Aafl«±at ■ rmf.nTHP-*tt ft * A A .00 

STEP REGION SI/£=OUOK MAXIMUM REGION SIZE USEr>=0064K PERCENT OF REGION USE0 = S4 

-I-eF*8i>.I &Y-S7-I-4-l>8-.-f-l-i>-4JiGM-.+(-VO-0.>.-2tlR K &00-1-.-LDO MOO 0 Sl-rCT-EC 


lEFaas I 


VOL SER NUS= GIjCRA. 


I/O time UY DEVICE. 


CHARGE— 000 .-1-5- 

01 &'<=*#** *2 .54 »aRUM=*<'#W#*.01 .TAPE=***«»2.2I. CEI = >)■ + #♦**. 00 .□ THR=** *t< **.00 
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A- 16 ;- 







t(=ii •, u;i IF ,7 .s^.'^-*i;v, )^i-',:a } ,c'oci,msgl;:vzl=i.typfiun=hold 


. l^^;Li<=^;J 

. pCN-I^ftLtrA«fi = vi1>*PiLI31 )* CtJi>i!J = (5« LT ) « f'l^G IC3N=50^’*K 
L^_i'if-i'"tl=iYc£.LL/»uLl3*L)U,P = 3f1K 
H,^^ t 

*l> 1SF =£rifi 

w hAM i! = 5YSi: *vl^Fi'Y »-Jl:sP=ihP 
Lfci'/'f't = sYi;i »rUf'7uii:»ljISF-S»it< 
v-:i>iNA^i- = bYb*i#CisF I u « D I SiP = oN < 
i,i!N/<Ni_ = aY; Ic.l; laP^SHn 

»=oYi 1 « ll_[_C(^ L-,1 d 1 V I ^ P = S'l'lit ' 
c=sYi:c»LuALl_I:3»OI ;F = bHf< 

1 = G f i i • i iSP=S!-'-* 

= Ct-:FC} ►C-I5P— CNi-AtPASiSJ fUNIT = DIS(C» 

iFACt = l3*.7iii It-IVaLKrAO. 1 )) 

LlLfTIOi^ OS.L, — SPM»-CL=4J^17ii»Ci>-7»As3fl)) 

^YiLLT=A ,„CL=lK^{,r-^ = Fr:.V,Ll-t;CL=i2l , bL<t I -'£= 1 2 I * ) , 

= I-A(.i. = ( 7«1S . t iL .5 ) ) 

ly^l^ = Cli!K »aFACs: = < { 1-j .»2v'> ) •I/C'i =dUK3IZ£ = l“24 

^i(. = Tt.LC-'J.VCL = = ^-i=li;b7H 

uLt. ^ Y = ,UNI1= IvTRACK , ) ,LAbEL = ( ,HLP) . 

ijP= CflI- J ;-CJ=( p£.«;FM = FL;,<.kEa.=a0»t3LKSIZE=32OO > 

4U V 

ubN = fi<^C*jJFLfL.ti^ibr'=(Ct-t-'i JwL— T t J I LCri = KbCi“ M=F8 
i-i,hKiYii = Ll.Ji-CT 

. FLK ZtTPi'jGj lIM< 


FLLLC a TtJ. 
ALLCjC A Tc.1, 
AlLCCA Tcl- 
M_ Lt-V. A I L. l: 

ALLt-C aTci^ 
ALh_C a Yui, 
Ai_Ll.CATdii 
At-LUC A T(.D 
Ai_L(,L ATut- 
>-LLOC ATcb 
alLCCATcJ^ 
h Lll_ij C A I ci7 
Al,LlC a Twl. 
ai_lCCA 1 


TO LLA&LId 
7u SViLld 
iu 
T ^ 

TO 
7 i- 
IQ 
IU 
Tu 

Itl SYSi_»^Uli 
7\j £ViPRIJ\7 
tu cYSk. T1 
1 J TAPt^LIU' 
7 3 a Y Si. IN 



(loonoion 

nO'irtriH'''' 

r-oooP300 

S>’J4n''4n-5 

I'OoooBon 
COOfiliUO'Y 
nniYoi>7Air' 
no OP 0300 

ooooognn 
OOOC: i*'on 
nooi>t 100 
''■000120 0 
COOC 1310 

no oOiAOn 

00001500 
,oo O-Mfeon 
00001700 


*-cioniQ''o 
ro 001900 


oonoaoroo 

00002100 


A-17 



A- 18 


rJirFAULT OPIIONtS) USED 


rlrio-LcVcl. l-lf\SA(.L- ii:.nLn sPEi-IrluU MAPiLlSr 

VAfii/iULL (.PlIviNi - al<;; = (.) 

ILwU'.CtJ iiNCLLLt TAPfct-Ic 

ilKlA^ I* r it\ 


•A jjguc "ihp 


gLKTMjL StLflLA i.grAY 


Ki-.l-’t. 

C»< iC IK 

LLNG 1 h 

^1A^IC 

LCCA TIUH 

N A'Vi£ 

LDCAT IGN 

NAME 

LOCATTON 

NAME 

M A IN 

CL 

I5&C. 








M 6v,&Nu 

s hb 

4b £ 








o cL cC T 

1^7t 










cCCl 

ICuo 








C rKPCt 

i ISC. 

C (. o 








AP«4 

^ L c 


kTaP£i4 

4*iCC 

WT AF£4 

4143 

WSNE0“ 

41 AC 


0 A 1 uL(\ = 

4i:ic 

FCu 

LA rccN 

43icJ 






CNVi^T ^ 

i4iCb 

VC 








4 

bkCC 

kA7 








* 

tbLL 

cbC 

FbOpt^O 







1 hCbuCNHV 

iiUkk 

1 









* 


1 bCuMs 

bd3ri 

KDIOCS= 


INTSWTCH 

674E > 


IfCcLMHiif* 

c ? 70 

cSC 

^cOOASD 

6ASd 






L»T 1 ¥ 

cLCC 

pb 








FL7 4 

£i9C& 

<: ib 

Fa TFb 

oECd 

FSTrO 

ftbrC 

FOTFS 

6*fl0 

FnxFn 

FlXfUT ♦ 

7UC 

Ibl 

I TFb 

mo 

ITrD 

7124 




f- in 4 

7kte 

Uu 

. ITI 

725d 






H 4 

7i7c 

C:j 








T^AN;s 4 

74&C 

b A 








X*-Cf ».VTH4 

7b4C 

USO 

AL>CUN- 

754»^ 

FCVAQUTP 

7&5A 

FCVLDOTP 

767A 

FCVZOUTP 




FCVIGOTP 

7d76 

FCVliOUTF 

Qi}7A 

FCVCCUTP 

0294 

INT6SWCH 

l>it£FNTrt» 

C ccC 

bi.a 

AKITH= 

bc.cO 

ADJSWTCH 

8A4C 




I hCl=FIOS» 

fc£Fe 

l3Cb 

F It3Cb = 

aaF3 

FIOCSfcJEP 

aBFE 




IhCOLFT ♦ 

OFaO 

b50 









A2EC 

170 








1 t-OsRKrt 4 

A4£\. 

bcC 

E.kRMON 

A420 

IHCF.Afie 

A4J6 




1 hCOATcU* 

ASfcO 

6 2b 








I FCcTKCh* 

tC It: 


IhCTKCH 

eols 

FRPTRA 

BO 20 




2i>ULANKCCM 

£2At: 

1034 









LOCATION 


6 F 34 


77 CA 

8570 



ST-V 


^AMc LKiljlh 

LliNtTH 

NA'*1c 

LCCATIJN , 

NAME 

LQC.AT ION 

MAMF. 

location 

NAM- 

location 

tNThY ALCHfcSS 

.Cu 









Total Lc^<J^l- 

C2CC 









Y!»* ♦ tsf C LCci 

^CT tXIaT cLT t-AS’ atSN 

ac-pSu.’ 

TO UATA sET 









A-20 


KEPT 


lLFc631 i YSc^LL^DLie 

vwL ittF NL:;- Oi^V&U 
iLFicbl feVft<s*t/UK'NY KEPT 

VuL &hf< NC£s Cl&VSl* 

ILh^ctjI *y^^c♦CCM^> KEPT 

VJL Skip tSL2i- 

XtFccol •Pcikl L le KEPT 

Vt-i_ SLk 1>C5= CliYil# 

iLPfftbl ^sViSi. *<«Sf CL lb KEPT 


iKpaesl 

VLL iscF> KCbs 

C iSYb 1 • 


iLr £c £ I 

b Ybl aPLlL tC 


KEPT 

iLFcCbl 

VLL 4eK NL&= 

ClbYai« 


iLF 1 

b Yb 1 *TeLL^L lb 

KEPT 

Ifer atbl 

VUL bLr. KCS = 

C l3Yb 1 « 


2br 2(.Ei 

uV32 «LCALL Id 


KEPT 

IbF ceo J 

VOL SoP NLbs 

GlbVsl, 


Ibr 2b»I 

bY.l •bbFAK 


KEPT 

lkF<:cbl 

VUL SLF KL£= 

L lb YS^ • 


ibr bL 3 1 

bVt?lit^,lc4 

.kVCOO« ZbKKAilF,j«LLiE:)MUD 

PAbScC 

luFatsi 

YUL b't h NlEs 

C 1 bCrv b • 



IfcFdeol bYi.7 1l£<;.l-i:it4<t *b VtO->* kOOMOl 86 sYSOUT 

Icrccj] VoL £t.n ^L£« Clb^.^S• 

lLri£l:&I SYS;7 2i£b«lE: 1 l ^ ^ «P V';^)C • ZUHKbC03«H0C>}<M o9 i^cLETUD 

iLrctrdl VvU 

IcFtfcal YuLUf-o KSPT 

ItrrcitS:] VUl cck lvc7h • 

lbFf£CSl Y:=7 I 1 £;9« J 1 C-tlit «r« V< *JO • (lb FK % C i:3 » OQ 0 1 90 bYSLN 

Ifcpaeoi VuL S.-K ^Ct= Cl*Ci<£. 

Itsr ^ebJ oYs. 7 11 £S»1 lL4c KK:aU':3 • &0000 1 OC. 3EL&TE0 

ibPc.bsl Yi.i_ ;ti.k KLbs ClbCkt* 

'"f— — jOo Non- oCt- ST^P Atsk- 01 ZbWKS^jOJ LINK PjM = IeWL CARuS=t*0« Y2 INITIATION TI W= = 23* 59* A3 • 7A 0ATE=i^6-''9-r 1 

— — CHU=jki;*l l/L=OC».l LUhL=tm-l CmAk^jL^OCO ■Oo STlP-II link TEFMINATION TIME=0'^.<'3« lft*TS nATE;i''6“1<?-7l 

1/U Tll^t tY = 

8TSP f^uOiLN bi2t.sv»:w';^ foXlPOk nT.^luN Slii LSt:?«*3J<?7K PE^^CENT flf i^EGION USCP®99 

AAOLf u/cC kCP = ’»4L INK •aViL^OO »CONu = <S» UT> * kb<SICN'=iyOK rkiY f)C 22'Y« 

XXFICoFliOi u*0 LLNrt^c «l,/> 1 ^9K^.*23Nf' 

AXFTCcr 00 I <->0 *uC va A i Lnc.CL = 1 J7 t oUKS i ^^ = 7 26i» ) • 0O(«i524 0Y> 

XX fcPACt=(CYL*(it JJ > ..'0Ot»25‘^'J 

XXfI\!7FCj)l tu uLVfrY •LCCl=iFf<.FM=patLktCL = be*bLKSlx5 = ?aa-0> » 

XX £pA<.fi = MKK.a icJl) ^ Cii7027')0 

iNit-NT //CL.f TC7F6C1 Lr> uiw=oLLti<.K,bYbJUT=tj FOP PUNCMeo OUTPUT ooonaaAn 
XXbtil-kiNT LL SYjuLT»«»uCc=(k£i.r.'lavCJA»i.k-LLaia5»bLK&IZiseeJ) ♦ !J00029'^'' 

XX £FACe=(TNK.U..;1H 0?003nn<| 

//UL •^Y^LwUA^F CC SY4 jLLY»A 

//oL*FCFT/<P I.U C^NA^Ls tNCR4AiLNlTsa40«:-7 I 
// L.AoELs(*ciL.P7»LlbF=(CLi^« Kt.uF > « V CLUMc.sSbKs4b 1 7H « 

// LCc=U,KcCi-=lb-it tfcLK.£ ,OUK =1 ) 

//\»Kj »F7 I sFoC 1 CL L bN A^tsCH.ULl »ONlT *01 bP ~ { f'JL a * Kb£P ) i 

// uA<tcL= (*cLFJ»VUiLL*^c*S£.ks3 239N » 

// iuC«i«(HcC.}>PsF*LLNsl,£LK3l2cBi£d£ > 

//fit-.LATAb lC 4 
// 

IbFajei ALLOt.« FCF 2tkKbOO: CL 
ibr^iJl cil AlLLCAIeu IL P^|V-««JU 

le.f-^c/1 ^li.LLATcL lU FlfisFOOl 

Ibh 4:271 t «• 1 ALLOCAltL lU M.lorOOl 

lbhXj71 ALcOCATbi: 10 uYJsFkInT 

1LF2U/I J-1 ALLCCA1c.L Ti. SYSLLLMP 

lar2272 Ocl ALLbCAY._i, Tk- FUNIaP 

IbF4;471 Ui-1 AcLC<.Al«C 10 rTlsFOOl 



£/cc,- TZL.I.M3 TcsT«EtlT,ANfi LlaT DfMi3A TAV>e) 


ifvPtr 
INPL T 

xapl r 


Cite 3A 

TAPc • 

la 4bl7rl 

SATEuUTt lO 

GH INPUT 

0PB3A TITLE RECORD IS 






CATc 

HR ^»IN 

•see ' 

i A 

SATt-LLl IE 

Cata 

STAFT TIM£ 

6dl IS'J 

’> A 

59 


sATcLLI T c 

OAT A 

c-ND 

TI-A^ 

6al20 3 

2 A 

59 ‘ 

FAScj 

N0i^6l£Ko ArsJj h£PCRT 

CFTIdivI 

CH05EN 

FOP THIS 

■<CJN ' 


67731 


A-21 



PAS 


N ^ * 


ASC^'^OING 

Hi-lOfi 


PERIOD 


CAT-i 

LAY OF YK 

hK ' 

MI.N 

3FC ■ 

•MINUTES 


661130' 

: ■ 336 • ■ 

1 

28 

27 

O.O 


o61 1 Si") 

335 

2 

5 

3i ■ 

- 97.06 . 


66113'C. 

3 36, 

3 

42 

36 

97.07 


681 laT 

336 

5 , 

19 . 

40 

97.07 


681 13" 

3 36 - ; 

0 

bo 

45 

97,07 

T 

68113-1 

335 

6 

33 

■49 

97.07 

d 

661130 

• 336;- 

1') 

10 

53 

97.07 


68113* 

333 ' 

1 1 

47 ' 

56 

- 97.07 

1 i 

681130 

335 

13 

25 

2 

97.08 

1 1 

681130 

335 

15 

2 

7 

97.08 

1 4. 

681133 

33b 

16 

39 

1 1 

97.07 


681130 

3 36 

18 

Id 

1 6 

97,07 

14 

681130 

336 

l-^ 

53 

20 

97.07 

1 0 

6811 50 

335 

2 1 

33 

24 

97.07 

le 

681 130 

335 

23 

7 

29 

97.07 

17 

68 1 2-1 1 

33 5 

0 

44 

33 

97.08 

le 

6612C* 1 

336 

2 

21 

38 

97.08 

ig 

681 2<5 1 

3 16 

3 

ss 

42 

97.07 

26 

68120 1 

336 

£ 

35 

47 

97,07 

^ 1 

081201 

336 

7 

12 

51 

97.07 

i ,4 

681 ^0 1 

33o 

3 

49 

55 

97.07 

2 c 

o8 1 2(1 1 

336 

1 0 

27 

Z 

97.07 

24 

681 20 1 

336 

1 2 

4 

4 

97.07 

25 

68120 1 

3 3o 

13 

41 

6 

97.07 

2 c 

681201 

336 

1 5 

18 

13 

97.67 

£7 

681201 

336 

1 6 

55 

17 

97.07 

2 fc 

O81201 

3 36 

15 

32 

£1 

97.07 


o8 1 20 1 

3 36 

20 

9 

26 

97.07 


68 12^1 

33o 

21 

46 

30 

97.07 

i 1 

081261 

336 

2 - 3 ' 

23 

34 

97. 07 

2 2 

68 1 2-32 

337 

1 

-0 

39 

97.07 

2-; 

68 1 20 2 

337 

2 

37 

43 

97 *07 

54 

681202 

337 

4 

14 

48 

97.07 


681202 

337 

. 5 

5 1 

52 

97.07 

5c 

681 202 

337 

7 

28 

56 

97.07 

57 

681202 

337 

9 

6 

Q 

97.07 

c ^ 

681202 

337 

to 

43 

S 

97.07 

541 

681202 

337 

12 

20 

9 

97.07 

40 

681202 

3 37 

13 

. b7 

13 

97.07 

4 1 

681 202 

337 

15 

34 

18 

97.07 

42 

681202 

337 

17 

1 1 

22 

97.07 

43 

681202 

337 

18 

48 

26 

97.07 

44 

681202 

337 

20 

25 

30 

97.07 

4b 

681202 

337 

22 

2 

34 

97.07 


A-22 



J- ASi 


4c 
4 ? . 


C.AT-1 
obi 40 2 
6c3 1 J 


AJOkNCIING NCLjE 
DAY •!- Yk nri MIN SEC 


337- 

'338 


3Y 
1 O 


39 

43 


^CK^/'L IcrtMNAT IvjN OF CHANG& PASS MiJ-laC^S AND FTPORT OPTION. 


PFR IDO 
MINUTES 
97.07 
97.07 


A-23 



A-24 


t^ASStO 


I &Vs7 I'l =S. .12^ ItjAc . ZE fiK S 'J : j . LUDMDD 

vuL Ei.fl KLE= ClECftEi 
l&lreeisl EY E7 XI ES. 'lEE 1 e tR Vl-'iif . ZE KKSiX'.' j • i'XOCIO 1 94 SYEIN 

xtFiooi vul fct« Ncs= oiscrn. 

ItFEcbl fey E7 11 tf.. iZc Ifc'iZ zefiKoCOJ . SOC»OOl9(t 0£L£T£L> 

lELF^ebl VOL £cH KCS= ClSChl. 

XcFeesX ay j. 7 1 X'E9 .1 i 3 1 1 Z i; .S VC 30. Zc Ri-iSi 03 . kOOOOX 91 SVSoUT 

ItFifcSl VOL Ll fi NLS= ClSCtJL. 

XcFzcbl ira711iS.TZjlc.<it:.SVi;0i). Z£ HKaC 0 J . kOOOO 1 9Z D!£LEJ£D 

XLFEEsX VoL EcK ^L3= bl£Lh7. 

ItFtbal aYS711 t9.7a516<iE .3VC 30. ZeSKSCOS, K000019J OcLKTtD 

ItFufcal VoL bLil ^CS= OlSvRfc. 

lLr.;ttaX INLKZ/i KEPT 

IbFttsX VC.L iciA ACh= «fcX7F . 

iLr3;ebI LnZCLT " KSPT 

XLFZtrX VCl Eth ^LS^! Ji-39h . 

JUo lyjK- bCb E 7 C-F CZ Zehi<SCi 33 oO , P 5 .' 1 =P<iM = *, t D CA«DS= 0 O 0 Pl INITIATION T I ME = ny», 03 , 1 1 . £6 DATS = n 6 -A 9-71 

CI-lj=Ci;C.i I-'L = «'3C.l CCFt = L3.:.l ChAHC.c.=000 .at> t.TEP-02 GO TF.KMINATIOM T I ME = A(} . I n . 1 0, 95 DATE=96-'19-71 

I 7 L Tlfi. tv LEVIZL. O XiK=» 2 J , DfiOM = *>!<*>i'*V • 0 3 1 TAPE.= #* VVif-A .30 . CELL=**»'*il‘*. 90 ,OTHR = #****’!' .P^ 

STtF kcGIlN i.l2li = tl'.«K f/AAI^U^' kLGXON SI2E LSSD = ')990K PERCENT OF REGION 0SEC=99 

IbFZtal =YE7 Il'EV.-tZalcAi .FVOOO.ZSRkSOiJS.uOOMOO 0£li-.T".0 

XhfEZaX VUL !cfi NL£= CltCRE. 

CHU=COu..:. 1/L = LC0 . 1 C0f.fc = 000.1 CHARGt=OOO.Jl JOb N£irt-6 19 ZbRKSCOS 3Cif^/9‘i S YSTEM=M VT- 1 9 . 6 '*1-16-7,1 Gl. 

l/^Ci llPd tv uEVlCE. o lSK = ¥Ww#Vdi . bb.L-KLIP=*#»’i'*w . 31 .TAPE= .38, CSLL=<i*«'*#*»O0.OTHR = *****:*.f’A 



Fi9ure A-4. Selecf Time Period OpHon Sample Run Printout 


A-^25 - 



r/ZEnKsou4 job 
f/ EXec LINK GO 



— XXPCPAUL t — PXCC 

. NBU:X^5U 

oootiu lUT) 

<XL IN< 

EXEC 

PGH=Ie-XL ,PARM=(MAP ,LISTJ ,CGNO= (5 , lTJ ,REGIgN=300K 

oooaoaoo 

xxl'O'Aol re — uv~ 

oSN AKt c-=S'y •LUrt u(_io 


XXNEWL IN 

DO 

pommy 

00000400 

XXSY5L lb 

OXT~ 

D5N AME= j V£3*D01 Ht jLii'bH— sn« 


XX 

DO 

DSMAME=SVS2tDUHM Y ,DI.SP = SH« 

OOOCM) 600 

— KX 

DD 

D3MAME - a'VilehUK 1 l-iu lUi — inrt 


XX 

DD 

DSMAMe = SYS2.GSFCLID *OI.SP=SHR 

00000300 

— KX 

au~ 



XX 

OD 

OSNAME^SYSI .TELCVUI3 iDISP=£HR 

OOCOlUOO 

— XX 

Dir- 

— :3 'i ::;^si.uAL/Li B »u i 


XX 

DD 

DSMAME^SYSI .SSPAK «DI £P=SHR 

00001200 


o;3iM— t- t>i_UUMULJ V ::aru ^ *U L oK — i I\c Jt • f-*AOi J lUNi 


XX 


ACE^t 3 072 . ( &NBLK 1 4 0 *1 J }. 

00001400 




XXSYSPRINT DO 

SYSOUT-A ,0CB=(RECFK-F8M,UPECU=12L«BLKSI2E=1210 J . 

00 GO 1500 

— XX 


SPACfc^l. IKK. 1 1 lUf bJ'J “ 


XXSYSUT 1 

DO 

UM I-r=DISK,SPACE = <1024 , 1 100 ,20JJ . DCB^eLKS IZE= 10 24 

O0G017G0 



X/TAPELIB DD 

DUMMY , VOL=SER=TaPEI X lUNI T= (9TRA C K , .DEFER} ,LABEL=( , ELP} . 

uooo leoo 

^"XX 



OOUUIOUU 

//LINK.SYSLIN 

DD * 


X/-STSL IN 




XX • 

DD 

DONAME=OejEr.T 

00002 100 

Ibf-ilBbi 




■ IEFS37I 

= 4 7 

ALlDCATED to LOADLIB 


1 

C*+ f 



IEF2371 

SA7 

ALLOCATED TO 


— 1EE2~37 r 

■E47 

A' ILA ItU — TO ^ 


IEF257I 

5A7 

ALLOCATED TO 


— IEF2-J/ 1 

E^TT 

ALLJLA ItU — TO ^ " 


IEF2371 

= 47 

Allocated tq 


— I EFE~3 / 1 

t4 f 

ALLJLA ItU — TO “ 


IEF2371 

337 

ALL 0 CA TED TO 


— lEF2~3i’ I 

~ZZ-2 

AlCTCA IfaU — lU aYbLMUD 


1EF237I 

332 

ALLOCATED TO SYSPRINT 


— It*-23 / 1 

■33-2 

ALujCA itu — TO — t Yfavj rr ~ 


IEF237 I 

0D2 

ALLOCATED TO TAPELIB 


ihV2‘3; 1 

33T 

AUUJl-A ItU Uj 
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variable options usld 

^-SPc:<j-I-F-1Cl> MAFi 
31 di:* (307200 

IrltarT 

.12236J- 

CSFAOLT 0PTIi-lS(5) USED 

, 


ICWOOOO 

C\'t7^Y Maim 






















nUOUXZE rflA'P" ' 





CCjNTsQl StCTIDN 


£f'IT'5Y 





( 


NAMt 

OR l^jlN 

4«c£n&TH 

NAMc 

LCCATICN 

MAWe 

LOCAT iOi-J 

NAME 

UOCATICJM NAME 

LOCATION 

V,/ I\] 

00 

im dc 

^t_,£ 

0 62 








StLECT 

-1 Jrt/ 








CHKt-lCC 

J190 

Cljfc 

^ cc 





■ 




~r-423e' 

PTAPj-4 

40 CC 

WT APh4 

4 14e 

AilNxuOF 

41AC 



OATCCjM 

A2J0 






C;?F0 7< * 

' >w LI C 
S2C0 

b 

2A 7 


* 








■" *2l3C ■* 

S J6FIJ0 

556d 

■ 









5d2S 

FOICCS= 

Sdt* 

iNTSrfTCH 

6 7 4fc 





Se UJ4S0 

-5 A (£3 






flt V 

Cfcce 

23^ 


i^rcfl 

-rsTF(; 





FIXFLT * 

7100 

lEl 

* ~F3TFS 

5^cC 

■FuTF3 

■' 6FtO FDTFD 

6F34 

FIX He 

725;i 

110 

rTF’S' 1 

— 7TOT7 

— TTFC 

/ 1 f^4 


. ^ 



/37a 

oa 

1 L 9D 

“ T TT ** 

”72 SS' 




' 


IHCFCVTH* 

7540 











FCVIUUTP 

— TtTAw 
787S 

FCVt-QUTP 

/ st-A 
aJ7A 

-Fcvcoirrp~’ 

FCVCOUTP 

“7 67A “"FCVZOUTR 
6294 INToShCH 

"*77C'A 
857 B 


-— EiLSFf 

Cl"2 " • 

-roGu ■ * 

AKI TK= 

SoLo 

ADJSWTCF 

6 A4C, 





l-iOCS= 

d(JF6 

FICiCSc-bF 

3bFL 





rtPtJ 0 
" *A V20 

■ ■ " ^=U 

17C 

Err 

026 

26c 









L.< AMON 

A420 

IHCERkt 

A4 3d 




I HC%J a I ^ 

I NCHTk Chv 

Uul y 








irciLANKCuM 

iSd»\a 

102- 

irrCT^CrT^^ ECFTd 

fcK« i HA 

l.0'20 








ieF 2 tl 5 I VOL S£S NOS= GlSVSI* 


lEFEgSI VLL SLR MOS« GlSVsl* 


IEFa@ 5 I VOL SLR NOS2 Gisysi. 


ier2Q5I VOL SGfi nOS« GlSVSl. 


IEP26SI VOL NOSs GlSVSl. 



IEF26SX VOL SBR NOS- GlSVSl. 


leFZeSE VUL SLR N0S« gisvss* 

-^ LrgQG ’ L ■ — - S¥s 7 1 -t-S-»r 7 't^fr 4 - 3 ^'rrP^ 0 ^C^— tnr^TrtOOMC 
iLFSySl VOL SER NOS-a GlSCRo, 

SY 5 ^'t*S^T^er«ai— SVO-CGy^ORT^TT 4 vflO*OTJO 

lEFzebl VCL SCR NOS= G I SCR 9. 


1£F2Q5£ VOL ScR NOS» G1.SCR9. 


ICFaeoI VOL StsR NOS= IC67H • 


ICFSaSI VOL SeR NO 


ILF26SI VCIL SEP NOS» G1SLR2. 

■■ - - Oft.. — rrti— — 0 1 — goR KS ’ ogg — ir iTTfc 

CPLf«OOO.l 1/0=000*1 CORss*OOO.l CH AROL® 0 0 0 • 06 


$TEP~01 LINK TBR^'^ATION T1M£=22« ob«0 0i^0 p/KTE^fii 














S73F0 rElLTjHJ VKL'^n.A«{ Vbii 1 ,ti;iTi'A'KU“LlS t — oRU^A T iSPE") 



NU* 


OUeJA 

ITTCt fifci:OH&~lS" 

~55533 

iNkUT 

0RB3A 

SATELLI TE 

DATE FR R-nq ^EC 

DATA START T I Hfc 7007IS 6 . 22 Ct 



INH U i 

UkUjA 

SA lECul Ih 

UA 1 A^T^D TiMfa- TTrOHZO 21 . 

: — 5f^ 





UKiiUN CMUDteN n-iX5 RCTN 




reques 

TED TIME PERIOD 

S( ARl' 1 IME 

SELECTED, CATE SEC OF CAY 

End T-IHE 

CATE SEC OF DAY 




lAHt. 

: ^ TOTTTB 

70J72A 

dtiinto^ ^ 


OUTPUT 

GP3 3A 

ill EO tTMET' 
TAPE HAS 

“HERIDir SLLcLl bC“EXlSTB LN~ INPUT 
BEEN generated. ' ' ', 

UhU JA 

‘T'SP'Ei 





START TIME 

END TIME 


IIMC KtKiuu stUbC IfcD ^ CAT E SkC UF- cAY — 

FOR OUTPUT ORBSA TAPE. 7007 18 . . 2AQOO . 

CATE 
70072A . 

'SbC OF liAY 

1 25200. 


normal 

TERMINATION OF 

SELECT TIME CERICC OPTION, 





A-30 




IGF28S1 


VDL 3Eq NOS= G1SCR9. 


■ icraas i s yst iio9«t cc4 - .3g - i T RVcrw«"2nRKJoo<)-. s oo- j p a r i s r siN 

IEF235I VQL SER NO OlSCttS. 

icraca i jva? iio9«Tec«i3ai*Rvucci. zuHMsuoit. t,ooi] oan Dg LE TE P 

1EF265I VOL SER NO S= G1SCR5. 

lEFcboI 0Y57 1 l - 5 9- * T C6 ' »32t . SVO 00. ZBRlc S tl04. R e oOoaO -7 SYS OU T 

I6F28SI VQL SER NOS= G1SCR5. 

icraooi sv - a - 7 - 1 - 1 -59 ^TCCAc e i.ovoc o t - aBYFx - ao o» - . - r u a q u a o b d cl et eo 

IEF285I VCL SER NO £•= G1SCR9. 

- ICF e OQI 3Y3711 S9»T0 e A321VSV0t)O - . ZBRH3U04. RUU 00 26 9 OECETOT ! 

IEF285I VOL SER NgS= GISCR6. 

lorscs I K1IPT ; 

lEFESSI VOL se= NOS= 4566H . 

- 1 - C - r - geO - l OY^7 - 1 -Y- Q - 9 7r T ^ E -Tr 3 g-t— R VO O- p — ZD R KS UU4 - J -R 0 00 02 7 0 , O ELE T CP : 

IEF285I VOL SER NOS= GISCR7. 

- l&F g tt ti' l a w- Q O m FTEFI 

IEF2BSI VOL SER NO S= ISllM . 

— —JO B NOR - 776 STe p-- W OT -^-0 2 ZBYTKSTnnt GO *. U L CA KOb-OUOOa IK I.T lATIUM T IMe = a23 03i'flT* 05“CFATE^Ub-Ub-/l 

CPU=000.5 l/0~00l*3 CDR= = 000t2 CHARGE=001 .34 STEP-02 GO TERMINAT.IUN TIHE = 22» 10»4,U 16 DATE=06-O&-71 

I/O TIME -SY O L VIC E. O I SK-»4»4b4« ' 6 AT O fl UMS ♦» - r* ' * - 4 TI J 0-T A PE = ~ VA»72B . 06 i ' C E LL-^V4 ' A - * ' « r- g g70T lT R7;yyRnyR‘'yTPTl 

STEP REGION SI2E-=OIOOK MAXIMUM REGION SIZE US6D-=IJ096K PERCENT OF REGION USEO=S6 


lEFaasi VOL SER nos= giscrs. 











Figure A~5. Sunlight Report Option Sample Run Printout 
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//-ZJ a -r^K-S QO a- JOB (t;iOOI1311g . T . , 001 00 1 - ) . GQC I . »<S GLE VEL~ 1 . T Y nBUN-HOLC 

// GXrC UINKGC 

XXDCr AUUT— pncc — 

XXLINK EXEC P Gf'siHV'L , PAPf^= ( M AP ,L ! ST ) , CCNr> = ( 5, LT ) . PEG I ON=300K 

— XXLOACLIP CSNA . vr-SYSg -^ L ' iW'LIS iPT S P -SM .S ) 

XXNEWLIN DC CUVMY 

XXCYCLIn DP CSN AVE = £YSE r OU'<MY .DISr-EhD 

XX OD DSNAME=«YS2. dummy ,D ISP=SHP 

DC D£NA - VE-=SYS1 .gDPTLT‘3 . M - Sg >=- SHn 

XX DC 0SNAP==SYS2, C-SFCL I>J »0ISP=SriP 

XX ^ DC DCN ■ A ^l CgSYCl i»~'Lll,IO i OIDP-Cim ^ 

XX nn DSX'AME=SYSX . TELCYU13 »QISP = SHR 

XX PC PSNApe = 5YP2 - H.nADL 13 .D - I - SP - 5MP 

XX OD DSKAWE=SYS1 ,SSPAK ,DISP=SHR 

— XXSY SLPOP — -J?c D^^SSLaDMOP [G s;;c - ) -i S I SP~ C Nr'V -i P ASS) . WIT-p ^ S K , 

XX SPACc=<3072, C&N8LK ,40. 1 ) ) 

I = r6CEI — SUpSTITLTlCN JCL SP A CE= { - gO ^ O '. C S O , 00 . 1) ) 

XXSYEPRINIT DC S Y SOUT=A. ,DCE=< RECFM=FeP , LRECU= 1 2 1 , 0LkS IZE-l 21 0 > , 

— XX s p ace d ( TR X-r- t 1 0 , E ) 1 ■ 

XXSYSUTl DC UN n=D ISK , 3FACE= < 1 02A, t 100 , 20 ) ) ,DCE=:eLKSIZE=l 0 2A 

XX TA P EL - I S -PC DSN= - 7^LOr3 , VGL-CEP^ -&&?H 

XXTA.PcLIB or CUf'MY, VOL=SFR=TA PET N,UMT= C9T RACK. .DEFER) . L ABEL= ( . SUP ) , 

— x-x PI £p-( CLP , KEEP ) . ocq- ('•>gCP‘»-sg .u ag g l ^ g o , gLY r- G j- ? - g .= 3 50 W 

//LI NK.SYSLI N DC ^ 

X / -S V -£ l rI- N =e &€-F^ SDP JMSC .D ISP-( old .C S L -C- TE - ) , DCe-R5 CFf 1 ~c B : 

XX DD DCN'A)/S=OejECT 

I - SF256I ALLOC. FG F Z 8 R K S0 S- 2 -. L INK 1 

IFF227I 5^7 ALLOCATED TQ LOAOUID. 

1 - 5^2 37 1 £T A » ALLCCATgP TO - £Y£LI3 — — — 

IHF237I .£47 ALLCCATEO TO 

I - Erz 37 I ■ £A -? A fa L - C - C A TED - T - a - 

IEF237I £A7 ALLCCATED -TO 

I-&J^ 2 -3- 7 - l — AL^ CAYcp TO ^ ^ ^ 

IEP237I ZM ALLCCATEP TC 

I Er2 37I AU - E E CaTCD TC 

IE-2371 237 ALLCCATSO TC 

HSF 2 -5 7 - 4 — 32^a ALb -E- CATEO ~r Q 

IEF237T 332 ALLCCATEO TO SYSPfilNT 

I - EF2 37I 3 3 -S AlLCCATFD TO -S- Y - SU - Tl 

IEF237I 0C2 ALLCCATFQ tq TAPELIS 

^rg - 37 - I- 22 -9 ALLCCATFO TO - rySLIM 


00000200 

QQWOaOO . 

OOOOOAOO 

■ OD & OOSOO 

oocooeoo 

00000700 

oooooaoo 

OOOCOOOO 
00001 000 
00001 100 
00001200 
ooooiaoQ 

00001400 


OO0O15OO 

00001 6 00 

OOCO170O 


ooooiaoo 

OOOOIOOO 

ooo&aooo 

000021 00 
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L/vj 


I-I-F-i- 


-ViffPrt+SrT- 


“I^WOCHW- 

IFWOOOO 


VAWIA9LE CPTIONS US^.O 

— I hC LtJ CC ■ T -^^C-S 

FhTPY ^•AI^ 


3I2E= 007200, 12 288 >- 


•Mfjey 


CHNTROL 55-C7ICN 


gNTpY 


NAMP 

GRIGE N 

LENGTH 

NAMF 

LOCATtHN 

MA 1 N 

CC 

c‘3 5 



SCL'^CT 

137C 

C62 



CHKPFC 

719C 

ca-5 






RTAP5A 

VOCC 




D ArrcN 

A238 

DBFCR 4 

S2CC 

2A7 






F36=90 





tQCOV-= 

5628 




SEQCASD 

6AE8 

FLT * 

6EC6 

7.3'i 



FIXPLT * 

710C 

1 51 



FIX » 

72Se 




f/ ^ 

7376 

DO 



IHCFCVTt-* 

0 

USD 






PCVIOUTP 

7278 


Cv« C C 


apith= 

36E0 




FIQCS= 

3EFS 

CMPRS * 

Asec 

170 






ERRMCN 

A 4 20 

IHCETRCF* 

BO 1 € 

2ae 




S6L.ANKCCM 


B2A e 


DEFAULT OPTION(S) USED 


L - E M A P 


NAME LOCATION NAME LOCATION NAME LOCATION 


WTAPCA AIA8 WSNEOF AlAC 


FOIOCS= 58EA INTSWTCH 674E 


FSTFD freSC PDWS 6F-L0 PDTffO 6P-34- 

ITrO W-M 


■F eV iAeHTP 7-5&A PCVbOUTP F O V- ZOUT -P ZTGA 

FCVEDUTP 807A FCVCOUTP 8294 INT6SWCH BS78 


AOJSWTCH 6A4C 


FI0CS8EP 0BFE 


36 
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ICF2P 5 I 


vri. NCS 


tEFSeSI VOL SER NCS= GlSYSl* 


IEF25ei VOL SSK NCS= GlSYSl, 


EFFae*:! vol sfr nos= gisysi . 

-I-IH=e^5-I FV-S-g-r- C - S F GL -Fg 

IFF5*e^r VOL S5P NCS= GISYSI* 


IFF2P^I VOL S?R NCS= GiSYSl* 

-W-P^2-e^I g-V^ K - T g hC -Mfc4>a 

VOL SFR ^CS= GlSYSl. 

-I <^F2 e-S-E S-YS*?-* 

IC-=2F?I VOL SBF N'CS= GlSYSl* 


ErF2fSI VDL 5EP NCSs GISYS2* 

3Y-,^ M-l 5-^,-T l--- ^^ - > -q v -0q-0^-£PFK-^O3^rL^OHBS 

TFF2P?! VOL S5R NC5= CISCR9» 

“6Y£^7 t‘l’^P>-Y-l“5^-*=f^Vr5V0^O r-ZF«K‘FOC^-^0^^09 
irF2€EI VOL SrR G1SCW9* 


TFF2FSI VOL SEP NCS= G15C9P, 

- e^i qfr^t 

IFF2E91 VOL NQS- lO-STH > 

- IJ=F2 FF-l &Y-9-7 V 00 0 .-^■^59 K-SO-OS-, S-3 0^09-'^™ 

ir'^'aFSI VOL FJ-P NCS^ 


I’^FaeTI VCL SFP KCS= GtSCPl» 

:mB-KFF " 3 ~-£- T -^P"NF^ 0-1 ^^PK-S^OP L-I-NK 

CPiJaOOO^l I/CaOOO.l COTir.^000,1 CH6.«5Sir = 000 . 05 


STSP-Ol LINK 


— - T - I M£^l^3A-^5S-,-7^ -OA^E- 
TCPMENATION T t ME =2 1 • 37* 3 1 • 48 DATE: 


106-07-74- 
! 06-07-71 


I ~H-M r— c V — c - r V re m j c » R-^y m=-* *-*mi *i ^i-t OOt - t -a rF '**-* y ♦* ♦*■♦* • o o- 
STEP rrcrrK ?I7£ = 0100K VAXT.VUr U'^OION size US^Cs 0300K PEPCeNI CF RLGION LSrD = 99 


je^GO F-^Rr-»» G ^^= **LrMC* - G ¥9L Mftfi-r>^ P g- ( ’^>r lrT ") TRg ' <i ’ T ' C M^ t ' 00K 

XXFTCEP'OOl CC^A^'t =0AT45 

X-X-^^-C'-tF-OO 1 -«r- -' -S-Y-H3lrT-=A^-FG-e=-(-=>^r^H B V B^-y L^6L^l~a7-T-fHr+^9 I2= - ~ 72 65-- 

XX SPACL=<CVL»Utl>) 

K-Xt^T 0-7"^00 1 -or -OLMWY *r-0e=<-F-5C-M= = e tLRFGL-^O rELK5-l-g&= 7 - g 0 O ) -^ 

XX 5PACF = (TRK , C I .20) i 

XXSY^nPTNT rn 9YSQLT=A,0c:P='t RrCFM=V6A*LPF.CU=l2R.f^LKStZCB<.2c ) , 

)»< = ( TOK-y<-t'r2<)*H 

//GO •SYSU^UfAF DC ^Y£CLT=A 

// LA*r)FL=i .BL P) iC ISF=<nL0.K3J:F> , VCLyMrsSr-R = ^-S6SH , 


00002300 
-0-00054-00- 
00002500 
-0-000 26-00- 
OCC02700 
- 000 - 0 50 00 - 
00002900 


//GO.nATAP PC <« 

-// 

IE=^236I ALLOC» FCC ZFRKS002 GO 

-iCyZ'37- l" 335 ALLOC-A--T=-'Wr-G--PGM34-,0^ 

IEF227I 231 ALLCCATTCJ TO ?TC«SOOI 


IEF237I ALLCCATf'D TO 5YSPRIN7 


I5F227I OCl ALLCCATCr TC rOFT^p 




PASS NC* 

SU-NL I Gt 1 T 

OATS 

-eNTRANeE 

DAY D<= YR 

HP 

MIN 

SEC 

PASS NO* 

SUNb-TGIIT 

DATE 

-EXIT 

DAY OF YR 

HR 

MIN 

SEC 

1 17 

1-1-e 

700719 

7 00-7-X;'l 

200 



22 

56 

30 

118 

7 007-1 9 — 

700723 

200 

204 

as- 

7 

— 

18 

30 

1 19 

700726 

2 07 

16 

20 

31 

120 

700730 

— ao7 — 

21 1 

— 1 6- 
0 

— 5^ 
45 

21 . 



— 7-nn 

* 2 11 










ISl 

700302 

21A 

■n 

3 


i-tj 1 

122 

700805 

S4-4 

217 

0- 

18 

— M- 
27 

24 

i-se 

?-006<r5 

a^-7 


— 

. *-ie 




_ 



las 

— 

700809 

— 7 0 0 0 1 ;•» 

221 
g nfr 

3 

24 

6 

12A 

700012 

g g’l 

224 

■B 

53 

— 1-3— 
45 

125 

700815 

227 

20 

52 

39 



227 







NORf/AL TERMINATION OF SUNLIGHT REPCRT OPTION* 
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iEFae=i 


VOL S?H NCS= G1SCR9 




I/O TIME EY DEVICE. O I SK=«>1=**>H2 » 5*- ,DRUM=**>I<«-*>K , 00 . T APS = #** + 2 2. 16 .CELL=«»«**=*. OO.OTHR=*+****.0 0 






Figure A-6. Check Record Option Sample Run Printout 
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/■^y inR (r.Tor.ii -i i i =■ r. r.nfta n-:) .on i rii~>i ' .rmn ■ Mgrii f\/fi = i .tv paiiM^Hni n 

// EXec LINKGQ 

- X Jt OSgA U LT PPOC MO L K-S J 1 i 

XXL INK EXEC PGM =IEWi_ ARfl= ( MAr> , U I ST ) ,COISD= ( S . LT ) , REGIQN=jOOK 

- X YL~I AO L TB OJ -i -in.ii fn . ^ 

XXNEWLIN DO DUMMY 

- XYSY^ L IB n-i figiM iv«.<g-g.vg-.-j- ;-niMMV..^ [ 'O-'chp 

XX 03 USNAME = SYS2'. DUMMY. O i SP=5HR 

-JUS no ■ FORTi ro'.-> r cp=«;hu ■ 

XX 00 DSNAME=SYS2, GSFCLI5 ,'j ISP=SHR 

-XX DU— 0 5N Ah MF:;:SYS t . PL 1 I . 

XX DO DSNAME = 3y'si\ TFLCMLI3 .OI-bP=SHR 

-0«S- — DO DSN A fA £^::JiY-S2^-XJ3AUL-13.«.D-I-aBxSHa- 1 

XX DO DSNAME = &Y-S1. SSPAK.OISP=SMR 

- X XSXS L M O D DO PAN-=A^.I ilDM . -H .-FP=.t_M = I IM TTaO f AXL, 

XX SPACe = C;'c72: . (SN^LX.^O, I ) ) 

■ IFFAS — g;iin«;TiTnTrtiM ii-i - -^riar.g^f ^-.iry ■ fST -aa . i ) ^ j ■ 

XXSYSPRINT DO SY30UT=A . DL. 0= { R ECFM=FS3M , LP,ECL= I 2 1 . BlKS I 2E= I 2 1 0 ) . 

-JSX S PACE -( TRX . U - 0 -.. 3U 

XXSYSUTl DO UN IT=OI SK,oPACE=( 1 024 , (100,20) ) ,OCB=BLKS:ZE=102A 

- /•/T .A P . fc L I R on DSM =. T . E La R- J .- V - U -= S E K :=l-aoJOj ; 

X /TAP EL IB DO DUMMY , V0L = 3ER = TAPE, LN ,UNI T= ( 9 TH ACK, .DEFER) , LAQEL=( , BLP) , 

-XX 9 t Sg-( 31. 3 , T , Si i P) .,L )Ct i S= . ( - iB £-C 3 -a=, Fa .»A.B eC .t.. = S0 -.- 3 L rS , 'S -I.g E a- «)C . f)4 

//LINK .SYSLIN DO * 

-X/SYSL - l - N BO » & N -C£0(i J . BE Li TEJ- . 0C B= HE- C EM - g -3 

XX DU OONAME-aeJiCT 

■ IEF236 I ALLUC . 20 a- KSJ u- G . LINK 

IEF207I 547 ALLOCATED TJ LOAOLIO 

■ lEFa37 I ‘SA7 AL.LOCATF;j T1 ..SiYSMH 

IEF237I S47 ALLOCATED T3 

1EF23TI SA7 ALLUCATEO TJ 

IEF237I 547 ALLOCATED ;TJ 

■ . LE - F2 -. 37 I - .. 5 4 7 ALL/3 C A T S. Q T . I 

IEF237I S47 ALLUCATED TJ 

TFF277T 5A7 ALLOCATED TJ 

IEF237I 337 ALLOCATED TJ 

TEF237I 5A0 AIJ-grATF.n TT SY-SU.-MnD ^ 

IEF237I 541 ALLUCATED TJ SYSORl'NT 

TFFP37I 54? AllDFATFO Tl 4YAHTI _ 

IEF237I 0D3 ALLOCATED TJ TAPELl'fc) 

rEF?.37I 231 fl' I r».-ftr F ^ f , 


00-000.1.03 
00 000200 
o-inomfin 
00 00 04-00 

n-^ nr,'icjnr\ 

00 000600 
00 000 700 

0C0OO300 
on opoQno 
00 001000 
-a oon i-ina 
00 001200 
-10-00-1-011X1. 
00001400 


00 OOlSOC 
00 00 1 ftOO 
00 00 1700 


00 00 130C 
nnnn i onn 


Jlo OQ.aOOQ. 
03 002100 


'A--41 










CONTROL SECTION ENTRY 

NAME ORIGIN LENL frt NAME LOCATION NAME LOCATION NAME LOCATION NAME’ LOCATION 


MAIN OO Eflj 

- ASCEND frfrS 4-=Tt 

SELECT 1370 06<> 

t SONCJ ' GT gOiiH too.; 

CHKREC J190 C6a 


RTAPEA 40CC 'rfTAPEA 4148 WSNEO= 4IAC 

UATCON 42J8 



53E4 INTSWTCH 674E 


































.-43 






IGF2851 VOL SER NOS= GI^VSl. 

- I - EFQOS -I S Y - &a , DU M{4 V 

2EF285I VOL SER NOSs Gl^VSU 

icrnoai gy s q < 3 W4h».- ■ » - - 

tSF28Sl VOL SER NOSs 0 1;>YS1» 

- icraosi — -s Y >» i » roRTLit> — — 

1EF2GS1 VOL SER NOS^ GlSYSl* 

sv s a . CGrcLiQ 

lEFaaSl VOL SER NUSa GLJVSl. 
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APPENDIX B 


S/360 TELOR3 SOXJRCE PROGRAM CROSS REFERENCE CHARTS 

This appendix presents three types of cross reference charts pertaining to the 
S/360 TELOR3 Source Program. The chart types and corresponding figure 
numbers are listed below: 

1. A chart displaying svibroutine COMMON block usage; 

Figure B-1 

2. Charts displaying input/output imits vs internal statement numbers 
(ESN) for each subroutinej 

Figures B-2 through B-7 

3. Charts displaying calls to subroutines vs ISN numbers for each 
subroutine: 

Figures B-8 through B-13 


B-1 



B-2 



Figure B-1, Subroutine COMMON Block Usage Cross Reference Chart 
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Figure B-4-. - Cross Reference Chart of Ihput/Output Units VS ISN Numbers 
for Subroutine SELECT 
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Figure B-5. Cross Reference Chart of Input/ Output Units VS'lSN Nuhabers 
for Subroutine SUNLGT 
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Figure B-6. Cross Reference Chart of Input/ Output Units VS ISN Numbers 
for Subroutine CHKREC 
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■>THE SYSTEM UTILITY ROUTINE DBFOR ACTUALLY DOES THE READING. 

2tHE system utility routine DATCON (modified for TEL0R3 PROGRAM 
PURPOSES TO OMIT THE COMPLEMENTING OF NEGATIVE NUMBERS) ACTUALLY 
DOES THE WRITING. 


Figure B-7. Cross Reference Chart of Input/Output Units VS ISN Numbers 
for Subroutine RWTAP4 
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Figure B-8. Cross Reference Chart of Calls to Subroutines VS ISN Numbers 
for the MAIN Routine 
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Figure B-9. Cross Reference Chart of Calls to Subroutines VS ISN Numbers 
for Subroutine ASCEND 
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Figure B-10, . Cross. Reference„Char.t of Calls' to. SubroutinesJV:SJS]Si',Nuinbers 
for, Sub routine SELECT . , ' t . 
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Figure B-11 


Cross Reference Chart of Calls to Subroutines VS ISN Numbers 
for Subroutine SUNLGT 
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ISN 
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; 

SUBRqUTlIJES , . 
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1 
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RWTAP4 (ENTRY. VyjAPE4) ■ 
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RWTAP4 (ENTRY WSNEOP) 
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Figure B-rl2.’ _Cross Reference Chart pf Calls to Subroutines VS; ISN Numbers- • 
for Subroutine CHKREC 
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Figure B-13. Cross Reference Chart of Calls to Subroutines VS ISN Numbers 
for Subroutine RWTAP4 









APPENDIX C 


S/360 TELOR3 SOURCE PROGRAM COMPILED LISTING . 

This appendix present's a compiled listing of the S/360 TELOR3 Source Program. 
For ready reference the page number on which each subroutine begins in the 
listing appears below: 


1. 

MAIN routine: 

Page C-4 

2. 

Subroutine ASCEND; 

Page C-18 

3. 

Subroutine SELECT; 

Page C-26 

4. 

Subroutine SUNLGT; 

Page C-40 

5. 

Subroutine CHKREC; 

Page C-48 

6. 

Subroutine RWTAP4: 

Page C-58 


C-1 



Figure C-1 . 


Compiled Listing 


of the S/360 TELOR3 Source Program 


C-2 





—T^/^eR K^^froo— d^ee— <■« o ^ - i -e- i - i r . t »-&c-c-^H:-»re^-i oo - i - > . c c-chrw^^evefc«d 

// EXEC fortrakh 

— XXOeF^iJfc-T-PRC-C— NBtK— ifl 1 £>eR«fl4-ftfl- 

XXGYSLl^ = 00000200 

IEF652I substitution JCL - CSN=t&0B JMOD , UNIT= D I SK .SPACE= ( 3 20 0 . { 20 . 1 0 ) . . , R OUMD I , 

■ P-I-£P^-{->>QDtP A S S) . DCD = (R 6€ P ItolteTbRSCtr - SO -r^ L K S I -Zg=3 20 0 ■) 0*OeOAC0- 

XX_VSPRINT DD SY SCUT=A , DCE={ RECFM=VB A , LRECL= 1 37 ,eLKSIZE=7265 ) , 00000=00 

- -x-x- — — OOCC O f O O 

XXSYSPUNCH DD DUV P Y , CCE= ( RECFM=F B.LREC L=80 , SLKSl ZE=72 6 0 ) . 00000700 

sPnAc-E^TRK-,4-i-arE4-) ! — I — ^ Q c oo oe o o 

XXSYSUTI DD UNIT=DISK.0CE=(RECFP=FE,LReCL=l0S,ELKSI2E=346S). OOCCOSOO 

~XX ^SP AC«=K^A65-»-f-l^tS4-J-— ^ 000 010 00 

XXSYSUT2 . DD UN n=D I SK , SP ACE= ( 4 CS6 , ( 2 , 1 )) , D CB=B1.KSI 2E=4 096 00001 100 

— A/^SO U RG&,-S YS-tN— DD-^i — - - 

// . - " 

IEF237I 330 ' ” ACLCCATED TO SYSLIN ' . 

IEF237I 331 ALLCCATED TO SYSUTl ' ' ^ ^ 

1-EF2 37-1 — 3 30 A-fcfcG€-AT€0 — TB— S-YStpra^ ! i ; ■ 

IEF237I 220 ALLCCATED 70 SYSIN 


00001 100 
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SOURce,6eCDTC,NGLIST.NODeCK*L,OAD.MAP.NQEDIT.ID,XREF 


THE FIVE OPTIONS IN THE S/360 TEUOR3 PROORAH.THS P5MAINING 

BY LOGIC CONTAINED WITHIN MAIN. 

■■"■ GA bL^NG*~SEQUE h C E — ■ ■■■ • ■■ — . — 

main is the EXECUTIVE ROUTINE FOR THE TELCR3 PROGRAM AND. 

■therefore. HAS-NO-A^SSOGJ-AIEO-CAL L4-NG-SEQUENC&. 

CCMMCN AFEA( DESCRIPT ION SERVES FOR ALL SUBROUTINES USING COMMON I 

1 NPUT— T 0-MA-I n— 

ISAVE “ A SIX-WORC ARRAY FILLED BY SUBROUTINE ASCEND. CONTAINS 

SI-X— QF — TNG— SCVS N VAR I ABI.. SS - M SgOCO— FOR— Q N6 LIMB^ OR 1- 

INFCRMATICN IN AN ASCENDING NODE REPORT. 

I-S AVE-H-I— =-PASS-^U»66« — , 

ISAVE(2) = PASS number YEAR-MOKTH-DAY 

I-S-AVET-B-H- »-PASS-NUMBER-OAV— OF-YEAH 

ISAVEIAl = PASS NUMBER HOUR OF CAY •, '* 

PBAVEF5-) — -—PASS-N U MBER— MTN U T6- C -F H CU R ^ 

ISAVEISJ = PASS NUMBER SECOND OP MINUTE 

FEFHOD-=.-CAm:LJLnVTBO-eY— SUBRBUT-INE-ASeENe-ANE— IS— THE-PERIOD-OF 

TI HECMINUTES I BETWEEN SUCCESSIVE PASS NUMBERS. THIS IS 

-THE— SeV€NTK-ANC— last— VA ai-ASLrE-NEEOCO-FOR— ONE-UrlNE-OF — 

INFORMATION IN AN ASCENDING NODE REPORT. 

OUTPUT— =ROH-MA+N— — — ; 

READIN = A 2S6-WDRC ARRAY CONTAINING AN ORB3A DATA RECORD, 

■SET.T-INEt^-r- TE W-P & GQPB-.-gR-A-seNT-mEL-RECeRO. — j-j — 

ISET = FLAG USED BY SUBROUTINE ASCEND TO DETERMINE PROPER 

€0 UATI ON-FOR-GA LC-UtAT-I-NG-PER+ao-BGTWEEN-SUGGESSI VE 

PASS NUMBERS. / ' ' 

= l .PER10D=GENERAL CALCULAT I ONI FOR ALL PASS NUMBERS 

AFT-ER— T+-E-fPI-«ST-) , ^ 

TITLE = A 256-WORO ARRAY CONTAINING AN 0RB3A TITLE RECORD. 

— MAJOF-VAfi I-ABLES-HN-AODI-T-I-ON— TO— A6CV&) 

I6RR = ERROR INDICATOR RETURNED TO CALLING PROGRAM 


READING AN INPUT 0RB3A RECORD, • • 

=OTNO-UNUSUAfc— GONOTT-IONS-. ; : — Cl 

=1 .eno-of-file. 

g4-.FEftMANENT— RE AD— SRROR,O ATA . RET-URNSD— BUT— l-T 

VALIDITY IS QUESTIONABLE. 
-=L-FOfl3THLN-LOCTCAL-UHtT-N a .- ' Fo r C A Ry-nCAOER-I-S 
= INPUT 0RB3A TAPE SATELLITE DATA START TIME. 

HOUR-OF-DA-V-. 

« INPUT 0RB3A TAPE SATELLITE DATA END TIME. 

HCUR-QE— DAY, 

= INPUT 0RB3A TAPE SATELLITE DATA START TIME'. 


= INPUT DRB3A TAPE SATELLITE DATA END TIME, 

H-I NUTE-rOF-HOUB^, 

= INPUT 0RB3A TAPE SATELLITE DATA START TIME, 

SECCND-OP-mNU T E.. 

= INPUT 0RB3A TAPE SATELLITE DATA END TIME. 

SSCONO^iOr-M- tN U TB '. 




■ i R £,Aba - 

i -^a- ORD- 


■J-S^-SW 

KASE 




■ R6a'dIN ( g3 A ) 


RE^piNt N-20 ) 


-T- A P& i -N 

T I TLE ( 1.) 

T T-TLC' — 

,*T*.. T T t iTTi/ a •% 

'7 C* VM t 

&■ > — 

- T . ITL S ( - 0) 


-^N POT r 0 R - B ^ A - T A P. E ■ E.L -I:r l - TE-&AT -S- T A I ME . 

YEAR-MONTH-DAY,. ; ‘ , 

- tN P U ^ -O R DJA TAf > I^ - S » TCl:;t:- -^' TC-g - ATA END XIME« 

YEAR -month-day/', s'-, 

-F L r Ag -r th S ED-I - K WSMOOF f ENTRY PCINT TO SU B ROUTINE 

‘RViTAPA)- PROCESSING FOR BRANCHING, 

-SE- T r - -a V - GA tr LI; t ^'^GUT ^ I »<& , ^ — ^ ^ ^ ^ ^ 

= l,WSNEOF hViT'ES' one' SENTINEL ITEM RECORD/TWO 

SENTIN S L-nEGORDS^ND - AN - END - Of =— FILS - ON-OUT P OT - 

□ RB3A TAPE. 

^2 ,WSNEOF - writes' 'TWO ' s'eNTINEL RECORD S- AND - AN 

END-OF-FILE ON OUTPUT ORB5A TAPE. 

OPTION TO EE PERFORMED 'for; THIS RUN( R^AO FROM 

- e - FT - FOW GA R B). -- — ^ ^ J 

=1. ASCENDING NODE. REPORT OPTIOV. 

^^^e-r-GH ANGE - F ' ASS. - NUMBERS WD REPCRT—OPTrON . 

=3, SELECT TINE PERIOD OPTION, 

-^ .SU N LIGHT R EP O R- Y - OPT -te Ny ^ ; = ^ ^ 

=5. CHECK RECORD OPTION. ' ' M*’ 

-ueee — f n-w - a.in -- t - q - e w Eci< -F OR --pR CGe Tf £c:,'Qr oentingl 

ITEM RECORD QR SENTINEL RECORD. 

RECORD IS PRESENT. 

CIT H ER SENTIN E L TYPE -T E C ORB — I S 

PRESENT, 

- FLA r G - W H- IG H TNOIG A- TES . PRESENCE - C R - ABS E N € € — OF- ^AN 

ASCENDING NODE CROSS ING 'DATA ITEM IN ORB3A RECORD 

- STO RE D IN - RCAPIN,. : ; = ^ 

EQ 99S.,N0 ASCENDING NODE ITEM IN RECORD. 

-NE— ^9 » > - ASCE NB- ING - N0DE - 1TEM - EXT S T S — FN— REG&R&. 

DATA ITEM -TYPE INDICATOR OF KTF OF ELEVEN 

OATCLLITE data,' items in ORDSA. - REgQRO. - 

=1. REGULAR SATELLITE DATA ITEM, 

=2,AGCCNDING HODC C R OSSING DATA ITEM. ^ 

=3, NORTH PCINT DATA ItEM, 

- ^. e EGGENDING — NOD E- DATA .ITEM. . - 

=5,'S0UTH PCINT data’ ITEM. 

-i=S-rS UNLIGHT - ENT RANGE DATA - I - TEH. : 

= 7, SUNLIGHT EXIT DATA ITEM, . - ' “ ' 

ELEVEN SATELLITE DATA ITEMS IN QRB3A RECORD. 

TAPE IDENTIFICATION CODE PRESENT ON INPUT 0RB3A 

-■ TA P E - T - ITLE - R EG - ORD . ^ ^ 

=7679936 IS AN 0RB3A TAPE. 

-SA^fEL L 1 TE .IN DiE N J TFT CAT I -B N - NG . - F RE S ENT — ON I -NPUT 

DRB3A TAPE TITLE RECORD. = 

- OR E- 3 A T - A P e SATELL -Ir T - E DATA START TIME , 

YEAR-MQNTH-CA-y... . . ' f 

- ORB3A T - A P E - S - ATSLLITE - DATA STAR -T -TI ME -, 

SECONDS OF DAY," ' ' ’ 

-&R63A ;^ TA EE- % A T -E LLITE - DA - T - A. END TIM S-. : 

YEAR.-VONTH-DAY,' \ , . ./ 

- OR - BS A- TAP.E -t- SATELLITE DAT - A END .TIME , ' ■ 

SECONDS OF DAY, ... 
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c 



for the pass no. of the first ascending node 


'ORB3A TAPEIREAD FROM OPTION CARD). 


IBR FEDERAL. SYSTEMS D IV IS ION . CA ITHERSBURG. MARYLAND. •» CB8ITAL 


(TELaR3 PROGRAM .SECTION) 


MAIN FERFORMS'THE FOLLOWING STEPS 


. 1. READS TITLE RECORD OF TELGR3 INPUT TAPE AND DETERMINES 


76799361.. AN ERROR MESSAGE IS PRINTED AND EXECUTION IS 


2. READS OPTION CARD SPECIFYING INPUT ORE3A TAPE NO. AND ONE OF 


3. CONVERTS INPUT 0RB3A TAPE START AND END TIMES IN SECONDS OF 






HOURS. MINUTES. AND SECONDS. 


A. THE PROGRAM T I TLE ( TEL0R3 > 


C. SATELLITE 10 




E. INPUT 0RE3A START AND END TIMES ( HOURS .M INUTES , SECONDS J 


THE FOLLOWING DESCRIBES HOW MAIN CONTROLS THE TEL0R3 PROGRAM 


, TJiE CHECK RECCRD OPTION IS SELECTED FOR A PARTICULAR JOB 



•Za 


EXECUTED, CONTROL IS RETURNED TO MAIN, AND THE PROGRAM COMES TO 
A— STOP — ^ 






COLUMN HEADINGS FOR THIS FEPORT OPTION AND ENTERS A LOOP WHICH 


2. CHECKS RECCRO TO SEE IF IT IS A DATA OR A SENTINEL TYPE 


3. CHECKS A DATA RECORD FOR PRESENCE’ OF AN ASCENDING NODE 

i-nn ecTNi/T* r*A*TA ttcu . 


4. IF AN ASCENDING NODE DATA ITEM IS PRESENT (REAOINL E3A> .NE. 






ASCENDING NODE LINE OF INFORMATION JUST PREPARED 6Y ASCEND 




5. IF AN ASCENDING NODE DATA ITEM IS NOT PRESENT IN THE DATA 












— e- 
c 

— e- 
' c 

c 

— 6 - 
C 

c 

— G- 
C 

— G- 

C 

— G- 

C 

— G~ 

C 

c- 
— e- 
c 

— e- 
c 

— e- 
c 

— ^ 
c 

— e- 
c, 


J,f7, Tt-E CHANGE PASS NUM6ERS AND REPORT OPT ION( PERFORMED BY LOGIC 
■ C - cViTAINED MQ' 5 TLY: - WIT H TN --WA- I - NF - -iG ..gCi-CCTEPfWAl'N' C RC AT Ca AN OUTPUT; 
0Pe3A TAPE WHICH .15 A DUPLICATE OF THE ,TELOR3 INPUT QRB3A TAPE 

-W-I- T H- TnE - EXCEPT ieN--THAT THE OUTPUT TA P E CQKT - A I N G - ' - A tr- TERED PASS 

NUMBERS,! ALTERED' ASCENDI.NG . NODE. .CROSS I.NG. NUMEHRS ). FURTHERMORE. THE 
-P ASS - - NO « — Q PTION-ALSO - PROOUG E S - AN ASCE N DING N ODE -- REPGR,T B ASED O N-- 
THE OUTPUT QRE3A TAP.E.THE FOLLOWING STEPS ARE PERFORMED IN 
EXECUTING THE C H A N GE. -P ASS -N UM eE RS— AN D - REPORT CPTJO N ^ 

.OUTPUT GRE3A TAPE, ARE PRINTED OUT , BY MAIN. ■ 

a.JH g- ., TITLE A RP^ YC GCKTA - INS— INPUT OR83A T IT 4=€-RE-C O R O - ) -I- S ^ 

WRITTEN OUT BY MAIN AS THE T-'lTLE RECORD- ON THE OUTPUT 0RB3A 

TAPE. ^ ^ ^ ^ ^ 

3.MATN ENTERS A -LOCP WHICH PERFORMS ’ THE FOLLOWING 

,--ATrfi&AD & - -A N -- lN P UT -- 0 R€- 3A . R ECO R O .- I tv lT fi - RE A D - I N ARB AY 

E, CHECKS RECORD(READIN) TO. SEE Ip.', IT IS A DATA OR A 

— SENTINEL TYPE RE.CORC. ' ■ P 

C«IF IT IS A DATA RECORD. THE PASS NO. OF EACH SATELLITE 

BATA - ITEM -IN - - THE-KCCDRD< R EADINI N ) » 1 . 23 - l - . - 21 ' > - -I - S 

CHANGED AND READIN IS WRITTEN ON' THE .CUTPUT QRB3A TAPE. 

B-a l F -T H E - R E CORO - — JUS - T— W RT T - T E N -B UT COKTAI KS A N ASCE NDTTIG 

NODE CROSSING DATA ITEM! READI N t 234 ) .NE .999 SUSROUT INE 

ASCEND IS CALLED. GGNTnOU-RETURNS-TG ' M AIN . AN a - SGEN &WG 

NODE LINE OF INFORMATION JUST PREPARED BY ASCEND IS 

PRI NTED * A ND W A I - N -- RE - TURN3-T0 - THE OEG INNING OF' Tl I D LOOP - . 

E.IF. THE RECORD JUST WRITTEN OUT DOES NOT CONTAIN AN 

A- SCENtH -NG— NO D E- G R G S S -I-N G -- DA - TA - ITEM ( RE ADIN( 23 A-I-. EQ - . - 99 9-.-}-.— 

MAIN RETURNS TO THE BEGINNING OF THE LOOP. 


-e =- 4 - . - TKC PASS hUHSERO IN 3C AOOyC ARE — GHANGEC — I N T H E FObL &WT^ 

C WAY, VALUe<READ FROM OPTION CARDI -REPLACES' THE PASS NUMBERS 

-€ ^ 0F - -Abt; - : - SATELL - IT - E-B - AT - A— I - T G WS - nnESEMTLV AND HGNCEFOn.TH .IN THE 

C READIN .ARRAY UNTIL AN ASCEND LNG- NODE CRGSS.ING DATA- ITEM IS 


C 

C 

-& 

c 

-€■ 

C 

-G- 

'C 

-e- 

c 

-G- 

c 

-Q- 

C 


THE RESULT REPLACES THE PASS NUMBER OF THIS ASCENDING NODE 

SATELLITE DATA- ITEMS PRESENTLY AND HENCEFCRTH IN RE.ADIN.WHEN 
• A - N - G - T -HE-R-frSGg ND -TNG-N OOE ITEM IS FQ.UND . VALU E . - . IS I NCnEHENTS D-B» 
ONE AND THE ABOVE PROCEDURE IS REPEATED. 


REQUIRED SUBPROGRAMS 
■■ ■ ■ SU 6R QU T- I - N6 - S UBP-R CGR A-M- S - 


ASCEND. SUNLGT. SELECT. CHKREC.RWTAP4C ALSO ENTRY POINTS RTAPEAi 
-W- T - A F - & 4 rW- SN S GF ) . : r-;: : : 


FUNCTION SUBPROGRAMS 


- TH E -FO R- 'H ^ A N— B ASIC S UPfH=4 €D M ATHEMAT I CAIj -F UNC - T - I O^ N t FI^ A- T - 


LANGUAGE AND S-Y-STEM 
M - A - IN HAS- 


LEVEL of ZERO ON THE IBM 360/95 USING RELEASE 19. 


-G P ROG R AM M ER ^ ^ ^ 

C ROBERT K.SCHLESSINGER 

C SILVER SPRING .MARYLAND 

^ P- F S-F-A-Rg O — FO R ^ 

C GOCOARC SPACE FLIGHT CENTER 


C-7 




: GR5ENeELT»MARYLAN0 

C NAS 5-1 1-T90, TASK 72. SUBTASK H 



ISM 0003 


ISN 0004 
^I-SN-OOOE- 


CCMKCN TITLE C2Sej .REACIN (25« I .PERIOD 


DATA XCRS3A .XNINES / 76799361. DO, 999S999S.D0 

TC FACILITATE, THE.USE CF DEBUGGING TOOLS, ALL *GC TO* AND *CALL* 



I SN 0013 


ISN 0015 

TSK 0017 
- I - SN- OO-1-8- 
ISN 0015 


IF THE OPTION SELECTOR I KASE) IS NOT BETWEEN ONE AND FIVE 

IFIKASE.lt. I .OR. KASE.GT. B> GO TO 8 
— PAS5-^>tti>iSETTS— ANO— REPO 
THIS RUN AND THE INPUT PASS NO. IS LESS THAN CNE. PRINT APPROPRIATE 


IF(KASE.E0.2 .And. VALUE. LT.l.) GO TO 9 

-STVVR.T— T-H^L-E— PAGE— S>^0-TeLOR3-RR0GRA«. 

WPITE<JSV0UT,2000} 

-I-S AT-T=T-I-TL-S4 2-1 : 

MRITE<JSVOUT,2010) TAPEIN.ISATT 


SECONDS OF DAYCCGNTAINEO IN TITLE RECORD! TO FOURS. Ml NUTES. 


1 SN 0020 


ISN 0021 
ISN 0022 
ISN 0023 


ISN 0024 
ISN 0025 
ISN 0026 


READ I=TITLE( 6 1/3600. 


READ2=TITLE( 91/3600. 

* * * — T RUNC-ATE- ST^RT-^-I-ME— 'LO-H&UR-eR-- 

IREACl=Be ADI 

IREAD2=REA02 


READ3=FLOAT( IREAbl ) 

— -CC-NVERT— END-HOUR-OF-OAY— m-flEAL-FOA 
REAC4=FLGAT( IREAD2) 

READ 1=READ1-RE ADS 






ISN 0027 


'REA02=READ2-READ4. 


ISN 0028 


I r^r\ « t . 

REACI=REA01 *60, 


ISN 

c 

0029 

= G-GMrLTE END-T-IMC MINUTEO A» 

READ2=READ2*60» 

it FRACT-IOK-Or. HINUTeg’K 

1 SN 

0030 

rREAC3=READl ' 

WIMJTE' OF'"’HpUR ^*4* . , 


ISN 0031 


ISN 0032 
ISN 0033 


ISN 003A 


ISN 003 


ISN 0036 


ISN 0037 


ISN 0030 


IREACA=REA02 • 


READ3=FL0AT( 1READ3) 
-Ge NV-E-R-I— I 
READA=FLCAT< IREAD4) 


REAC1=READ:-REAC3- 


REAC2=PEAD2-READ4 


REAOI=READI*6Q. 


READ2=REAO2*60. 


IREAO5=REA0r 


I SN 

G 

0039 

IREACe=:RSAD2 

dQCCf^O or 

I SN 

OOAO 

IREAD7=TITLE <4) 


I SN 

0041 

IREA08=TItLE(7) 



ISN 0042 


ISN 0043 
-HFSN— OOAS- 


-I- GN— 00 46- 
ISN 0047 


I SN «0 04 8 


ISN 0051 
~i SN--0<>5-2- 


ISN 0054 


C PRINT ON TITLE PAGE INPUT ORB3A TAPE SATELLITE DATA START AND END 


WRITEIJSYOUT ,2020) IREA07, I REAOl ,IRE AD3 , IREAD5. IREADB, I READ2, 

1 ; ^I-ftE-A04-rf-ReA0€ 

'C CALL RWTAP4 TO INITIALIZE PROGRAM TO GENERATE AN ORB3A TAPE IF ANY 


708 IFlKASE.Ea.2 .OR, KASE.EQ.3 ,CR, KASE.EQ.S) CALL RWTAP4 

?- H) - Ge TC I gl,gg y &3 - rg4 -r g 5-»-r K - A Se 

C KASE=l(ASCENOING NODE REPORT CPTICN) 

720 GC IC 304 


■22 WRITE<JSYOUT.2040) 


C, , KASE=3(SELECT TIME PERIOD OPTION) 


740. CALL SELECT 

75-g-CC— TC -OCO 

C KASE=4< SUNLIGHT REPORT OPTICN) 


760 CALL SUNLST 


: KASE=5< CHECK RECORD OPTION). 


ISN 00S7 


780 CALL CHKREC 










TEN 0059 


C TITLE ARRAY AS ThE TITLE RECORD ON THE OUTPUT QRB3A TAPE. 


C READ AN INPUT DRESA DATA OF? SENTINEL TYPE RECORD INTO READIN. 

-3 r' A* I rtf ArtSA/nCArtT.i. ITTOrtt 


C IF RECORD IN READIN IS A SENTINEL TYPE.ALL INPUT 0RB3A DATA 


ISN 00E3 79a IfIreadIImFD.EO.XNINSS) GO TC 10 

— I^SN-OOeS— 7-96—1 F-{-iCAS&f£-&. 2-L- G O — T -Q-90 

C IP USING ASCENDING NODE REPORT OPTION AND READIN DOES NOT CONTAIN 

C (GO TC , ‘ ‘ 

— I- SN-<7067 — 7-96— TS-t-RE-ADj^>:-t^-3 A ) . EG .- RSq . C - O) ' GO TO 3 i 

C IP USING ASCENDING NODE REPORT OPTION AND. READIN CONTAINS AN 

C (GO I C 400). 

- - I-SN--606S 660— GG-TG— 4-C 0 : 

C IP HERE, CHANGE PASS NUKEERS AND REPORT OPTION HAS BEEN CHOSEN. 


'I-S6 -00-76 

ISN 0071 
-I-SN-067-3 — 
ISN O07A 


— -I-&N-&07S 


ISN 0076 


C CHANGE PASS NUMBERS OF RECORD IN READIN WITH FOLLOWING DO LOOP. 

60-OG— 460-N=^I-f*6I-f2-l 

IF t READIN (N-20) .EO. 2.D0) VALUE=VALUE+1. 

READ IM-N-)^VAtUE 

100 CONTINUE 

C NUMBERS. 


C IF THE RECORD JUST WRITTEN ON OUTPUT DR83A CONTAINS AN ASCENDING 

-C- NCDc-Cfi-CSS-ING-O AT-A-^THi>LrfAtJ=-6U6ftGUT^IN&-AS€6ND-(-GO-TGf4(MM-. 

812 IPtREADIN (234) .NE.999.D0) GO TO 400 


- -I-SK-&C-76 


ESN— ©6-79- 

isN oceo 

I-SN-6081- • 

ISN 0082 


ISN 0083 


-ISN-0085- 


rSN 0086 
I-SN--00e7- 


ISN 0088 


C INTO READIN. 

&26-Gfe-^G— 3 

c print column' head ings for ascending node REPCRT(REQUIPED 

C F-CR_EJ.7:HE-R-ASGENDIN6-NCDE— OR-T-IGN— OR-CHANGE— PAG$-N«»4SE-RS— and 

C REPCRT OPTION). 

364 — I-c.gUN-T-=4 

WRITE (JSY OUT, 2080 ) 

WR-I-TE <6 S-YOUT-f 3090-) ^ 

WRITE{JSY0UT,21 00 ) 

€ H=— T-HI-S— I-S-NOT~T-hE~F-IRS-T-j:.I-WE— ASCE-Nai-NG-WGOE— REPORT— CCWUMN— — 

C HEADINGS HAVE BEEN PR INTED, PR INT ASCENDING NODE LINE OF 

G I-Nd=eRPi4T-P9N— JUST— PPEPA REO -B- Y — SU B ROUTIME ASCE N C(CO TO SOI). 

822 IF (INO.NE.l) GC TO 501 

<7 GG— TOfBSG-I-NN4NG-GF— RE-AD- LOQ P-F06-rtAS66NPTN6— NGOE — R E PORT— Q P - TIGH -&R — 

C PASS NO. OPTICN. 

— - 836- GO- 70-14- - 

C CALL SUBROUTINE ASCEND TO PREPARE AN ASCENDING NODE LINE OF 

C- INFGRMAT-I-ON. : 

400 call ascend 

ICOUNT=ICCUNT-+l 

C IF LINE COUNTER .GT. 48 PRINT ASCENDING NODE COLUMN HEADINGS ON A 

c- NEW- PAGE-IGO— TC-304.)-. 

S32 IF ( IC0UNT.QT.4e ) GO TC 304 


C-10 


ISN 0090 


501 WRITE(JSYOUT,2110) ISAVE(l) , IS A VEC 2 ) . IS AVE { 3 > , I SA VE < A ) , ISAVE { 5) , 

-ISAVH ( 0 ), - > PgR- i - eD— - 

GG 7C BEGINNING CF REAC LOOP, AND READ ANOTHER INPUT RECORD. 


ISN 

0092 

e«- 

10 

-sc TO 3 = : 

CONTINUE 



c 

(GO TO 200>. 



c 

c - 

IF HERE, USING PASS NO, OPTION* 

ISN 

0095 


TITLEII )=XNInES 

I SN 

0096 


IFCREADIM2) .EO.XNINES) IWORD=l 



c 

vmL. 1:. “WO I VL.UJ lU VltlLIC.' OC. r< i mtlL. ITI'C AN L.r<U U|- ) iL_L_tC.U}‘f 

ON OUTPUT ORE3A TAPE. 



c 

IF mORD=l .WSNECF WRITES 1 SENTINEL ITEM RECORO. 2 SENTINEL 

ISN 

0098 

eso 

CALL WSNECFIREACIN. title, IWCFD) 

I EN 

0100 

860 

GC TC 999 

I SN 

0102 


WRITE! JSYGUT,2120) 

ISN 

01 04 

a 

WRITE! JSY0UT.2150) 

ISN 01 oe 

9 

"Ge”T'C' 999 — — — 

WRITE! JSYOUT, 2160) 

ISN OIOS 

11 

WRlTEt JSYGUT, 2140) 

ISN 
i'SH- 


sooo 
aolo 

FORMAT! IHl ,✓///////// /X////////X) 

-FCRHAT(-IH--.-SOXr51HSy3frO TCLCn3-PReGRAM( TEST-.ED IT, AMD ■ b-l-S-T ORB3A TA-- 


1PE)/1H0.20X,2AH1NPUT OR03A TAPE NO. IS. , A6 . 2X .AAHSATEEL ITE ID ON 
-2N PU - T — G R8- 3 - A — TITL E R E CO R O IS — 


ISN 0112 


-I-SN — 01 1 - 3 - 


2C20 FORMAT ( IHO. 60X, AHC ATE.3X .2HHR , 2X ,3HMIN . 2X , aHSEC/" 

^ I2.3X.I2/ 

3 1 11 . ' gOX - rEStllNFLT CRD3A S ATCHzIT e-- OATA END - TT - KE » A X i 1 6i- gX -yI 2 »gX. Ig «- 

4 3X.I2) 


E SN-OT-TA- 


IN ) 

- 20 4' 0 - rCRM A4-I-W»,t-g0-X-r- 


-REPeRT- 


IR THIS RUN) 


I^N- 

ISN 0116 
- ISN-01T7 - 
ISN one 
-ISN-Ol-IG 
ISN 0120 


2060 FORMATE 1H0.20X, 42HSUNLIGHT REPORT OPTION CHOSEN FOR THIS RUN) 

— ^207 0-f=H3ftMAT (-IHQ-r20-X-.— 3^H€H£ CK - RECCFD -- CPT I ON 'C H OS EN' FCR THIS - R UN^ 

£080 FCRMATIIHI,//) 

2 COO— F-GRMA-T<-IH— n-9X-.-8HPASS-»iCU-»g-fcX-n-4-HASC£NEi-WG-»l00&.2 6 X^6 H PeRJOO4 — 


2100 FORMATCIH .46X.5HCATE .lX.OHDAY OF YR, 2X . 2HHR, 1 X» 3HM IN. IX , 3HSEC . 

1 2-O X , 7HMINUT6S -) 

£110 FORMAT t IH .20X.I5.20X, I6.4X.I3,5X,I2,2X,I2,2X,I2.iaX,F8.2) 

I ICN, ) 

-El -3 o-FeR+^A-n-; 

lEPORT OPTION.) 


ISN 0121 
— I^N-O-l-2'e- 


I-SN- 0-1-2E 


C-11 







£l<>O FCnMATt 1I+8,78 Ht>*CATA-. IDENTIFK 

IK TAPE NG. AND TRY AGAIN**) 

5AT4 

ON ON TAPE IE 

NOT- 

-OBB3A*-* **CNE€ 



ICUTION TERMINATED.) 



NOT — CtTWCEN-l 

AND- 


T-*H 

A1 0-7 

le CHANGE PASS NUMBERS 

AND REPORT 

QPTiaNiEXECUTION TERMINATED.) 

ISN 

oiaa 

END 







C-12 





g-ft T 'A N - -g R- = F-fc ■« E" N-'C* ' t=-^ S T -S M Q*>0*^* • - • PAGg--OlO 


SVN6CL 

INTEPNAU STATfcMBNT NUMBERS- 

— -- _ . . 

- . W... 

N 

0C7O 

CC7 1 

CC73 





I^D 

00C7 

0C59 

0062- 

— 

- ~ - . 

- - - 

— . — 

I ERR 

0CC9 

ccez 






1SET 

C0C3 

occe 


- 


- . 


KASE 

0012 

0013 

OCl 3 

OCIS 

0043 

0043 

0043 

PUCAT 

O02A. 

G02S 

0C22 

0033 




INCRD 

oocs 

OClS 






ISATT 

0018 

0C19 


. 



- - _ 

ISAVC 

OOC3 

0C9C 

0C90 

O090 

009C 

CC90 

0090 

lit CRD 

OOCA 

GC9£ 

0098 




- — 

READ 1 

0020 

C022 

0C26 

C026 

0 028 

0028 

0030 

R6AD2 

0021 

0023 

oca? 

0027 

0029 

0029 

0031 - 

REA&3 

0C24 

CC2< 

0C32 

0C34 




RS>D* 

0025 

0C27 

003 3- 

•OOS5 


.. - . ^ . 

— 

TITLF 

0003 

0GC9 

OOlC 

ocie 

0020 

0021 

0040 

VALUF 

0012 

OOIE 

0071 

C071 

0073 



ASCEND 

OCfif 







CFKREC 

0CE7 



- 



, 

ICCUNT 

0079 

OCfi? 

OtS7 

ccoe 




IREADl 

0022 

002* 

OCAS 


- — 

.. 

1 R5ACE 

0023 

CC2E 

0CA2 





ZREAC3 

CC30 

0032 

CCA 2 

' - 


— 



XKEADA 

0C31 

OC33 

0C42 





IPEADS 

ocsa 

0042 


- - - 


- - ^ - 


IRSAE€ 

0029 

CC42 






TREAD? 

OCAO 

004 2- 

— 

— « 

— 

- 

» ■ . 

IREACe 

OOAl 

CQ< 2 






JSYOUT 

“OOOS 

0017 

0Q19 

0042 

004-6 —004-8 — 

oo&o— 

PEBlCC 

0CC3 

ccsc 






READTN- 

'OOC3 

0062 - 

OC63— 

006? 

—007-1- 

—007-3 

oc-rs- 

RTAPE4 

0009 

CC£2 














5EUSCT 

OCSl 







SUNLQT 

00€4 


- 


- 



TAFEIN 

0012 

OClS 






WSNEOr 

0090 

. 


- 

— . 



— 

KTAPB4 

OQFO 

CC75 






XN INBS 

0004 

0C63 

009&— * 

•CC96‘ 

— — — 

■ — II II 

— 

XCRB3A 

CCCA 

QCIC 







0034 003^ 


0036 0C36 

O03?‘'0C37 


0038 

0039 


0041 0060 0095 0C99 


0104- 0106 -6108 


-009‘J-' 
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706 * COIE 

. _ . -^043' — ~ 

710 C046 

<H>An 

730 004^ 

740 0053 

75C 00S2 

.76-0 -0054 

77 0 0 055 

-TB-O 00S7 

790 0058 

■ -0060 

794 0063 

— —796 0065 

796 0067 

— 800 OG69 

810 G07S 

61-a —0076 


820 

0078 


B3 0 

ocas 


54 0 

0C91 


65 0 

0098 


-■86 0— 

-0100 — 



87 0 

0 103 





89 0 

0107 


— — 

- -C-127 

-0052- 

100 0 

C109 

0012 

2 00 0— 

Gil 0 

C 0 1-7— 

201 0 

OHl 

C019 

-2 oao 

- C112 

-C042^ 


-0O5S 0050- 


00 — -0 1-03 04-05 
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-f- 






NAME 



TAC 

■ SF — 

TVPE 

— 

ADO* 

■00050*^ 

name 

I {Ijp 

Tag 

g - - 

TYPE 
I Ti 

ADD. 
■n nnr.»^ 

NAME TAG 

TYPE ADO. 

NAME TAG 

TYPE 

ADO. 

1 /Y n 

kase 

SF 

1 ‘♦A 

ocosco 

INCRD 

F 

I*A 

0005CA 

ISATT SF 

OOQSC8 

ISAVE F 

c 

'■'■ i T<i ' 

1*4 

-VMH-CSO— 

OOlOOd 

T,WQO-n~-,<5,PA- .4^^ 

READl- 


■ PI Q 

- o no ^ 

P»r- A rwh 1“ 






READ4 

SF 

R’*8 

0 ooeis 

title 

SFA C 

R*a 

•V A# V 

oooooo 

*~" >yii* 1 1 

VALUE SF 

— K *' '" vvKioOO ' ■■■■'■■■ 

HY4 000500 

— R-P A 0*3—5 F— — 
ASCEND SF 

XF 

* — R'*8— ' 

f?*8 

-uO 061-0— 

oooooo 

-G*4KReC-SF --XP. — R-#8 0 CO 00-0 

I-BCG«=- 

P— ^-XP— 

— 

-OCOOOO 

lOOUN^P-S F 

--I-»4 — OOOS04 

—IREADl— SFA- 



-OOOSOB- 

1REA02 

SFA 

-&fi 


OOOSDC 

-WCSEC 

IREAD3 
I^F AD7 

SFA 

gp- 


OQ05EO 

.opnggA 

IREAD4 SFA 

TriffAfirt ge 

1*4 OOOSE4 

t i*. A AAAXSBS-A 

1 READS SF 

< ev ml 1 Y e? 


1*4 

0005ES 

PERIOD 

F C 

R*6 

OCIOOQ 

RE AO IN 

SFA C 

R*a 

“V WO “ti ' ■ " 

000600 

• ' r« Crn Li c 5 j g ■ imi 

FTAPE4 SF XF 

’ L ‘f»4f— yjyJ ■ — — * 

R^d oooooo 

— jJ5>TQU T * '■■ r»— »■ 

RWTAP4 SF 

XF 

R+3 

-*00 0Er*-6»" 
OUDOOO 

-SELECT— SF XF— 

-R-A8 O-CO 00 0 

SUNL^~ 

•SF XP RJffi. 0000-0-0 

•T-ARE-I N-S-F- 

— -0O0S20 

-WSNEOF— SF-- 

-XF- 

— 0*8— 

-OOOOOO - 

ViTAPEA 

SF XF 

P*8 

ocoooo 

XNtNES 

F 

R«8 

000628 

X0R63A 

R4i8 000630 






♦ ♦*** COf'MCN IMFQRHATION ****♦ 


NAME— OF--CGM«eN-aLrGGK A * S-I?E--OF— BLOCK 00-l-02-4-t--6X.AOEC-tt‘AL— &V-T-ES — ~ - 

VAR,- NAME -TVPE RELrir — AOORi, VARt, — NAME T-V-PE — -RFb-,r— AOOfi-, VA-S-,— NAWE — -T-VPE RSL-,— AD6R-, ^VAR •— NAME — ^T-YPE-- PEL,-- ADL)H- 

TITLE B*a COOUOO RRAOIK R*8 OOOBOO period R+S aoiooo ISAVS IfA OQIOOB 

I-SE-T I-*A 6-C-l-Oe- O — ' 



— L-A06L- ACDf>~ 


-- 700 H>0C73C— Nfl- 


708 

OOCAOO NR 

—22 — 

OOO03A- — 

750 

OOC878 NP 

-25— 

OOO0A5 -- « . 

792 

0aC8C5 KR 

79Q 

O0CC20 - 

8! C 

0CCC9A 

822 

OOCD04-NR 

501 

00CO3E 

•B 50 

0OCCC6 - ‘ - 

e 

OOCSOA 

11 

OOC5A2 


-7 02—00 07 A A-NR- 
710 coosoe 
-T^O'-OOO&SO-NR- 


ZA 000B7E 
0 0 B ?3 c -N R- 

3 0005«2 

— aco — OOOC42— — 
812 00GCA8 MR 
—0-30 — OOGB-i-a 
8AO OOCOOO NR 
. . —a €^O-,^0O0 E8-NR- - 
eoo ooocao kr 
0V3 — 0002SS- - - 


left— 

—A OOP- 


IrAfeEL' ' 

-ADOR - 

21 

000020 


720 

OOOB34 Nc: 

760 C0CB94 

NR 

770 

OQOQAO NP 
OQQSCE. 
O00C12 
000CS4 
OOCCCO 
-000030'NP 
000098 NR 

79A 

COCCOO 

KP 

798 

100 - 

30A 

820 OOOCSA 


10 00CO96 


8A2 

9 

OOOH26 


890 

000S3C NR 


-♦CPT ICNS lK-e.CFgCT-4 NA»1E=“-«AIN^P^T^O^-IMtKtvT-s^ 

-♦ORTJCNS EN eF^=SCT* ■SGGRC5-fe0C0lC-T-N0t-IS1^N£?QeC-K-TtGAF?-.+(AR-*NeeE)-t-?VI-DrXFI&F 

♦ STATISTICS* SCUPGE— STATEMENTS-* l-2-7--f PROGRAM— SI-ZE-^s 37-1 8-™ - 

-♦STA^T-IST-tCS* — NQ— D-lAOMOST-J^S-GENERi^T^O — . 

‘PNC-OF--CCMF-IEA*T-JCN-^^^*-* — l-O-c^-a Y*T-SS-OF-GOflS*“NOT .-USED 


C-17 



•C-18 


c 



oAf^on^}>n^pnfflr^mn^poAnnr»|>n^n 


SOURCe,EECDIC,^tC3LIST.NQDECK.^.□AD.HAP.^QeO IT. ID, XREF 


PURPCse 

S4;a«auT-IT>IE— AS^^Ghie— I-S0UAT6S— kHT-CH-S^1^t4^e~RA-TA— l-se »— I-N- A-N-OR B-3A — . 

DATA RECORD IS OF Tf-E ASCENDING NODE CROSSING TYPE AND USES DATA 

R?G«— T« I-S— ASGeNt>WG— I-T-SM- TO -FRGPijeg-ANO--S-YeR&-QN£:-l:rINe- OF 

INFORMATION FOB THE BCD OUTPUT OF AN ASCENDING NODE PEPORT. 

-SAtt-TN«-66QUEN6G 

CALL ASCEND 

^T+i6R6~AR^N0.-Afl6UMEICT^IN-4H^e-GAbL-IN<5-SP«U61vG&. 

INPUTITHROUOH CCHMON) 

I-SET =_f;L,AG^.IT^W-TTUHJLAA-SET—SY--MA.l-^H— usee— Te-CE-T-eRAUINE— PROPER 

EQUATION FOR CALCULATING PERIOD BETWEEN SUCCESSIVE 


=O,PEHIO0=0. (FOR-FIfiST PASS NO. ONLY) 

=-l-,P6R-I-QD=G£-NeRAU— GALCULAT-I-ON (^R—ALL-PASS-NUMOeHS 

AFTER THE FIRST) 

READ W--=— A— S5€-WORD~ARRAY-(JINRW-FR OM-M AT4J >-G0Bft6SRG ND-I NG— TO- AN 

OR03A DATA RECORD WITH AN ASCENDING NODE CROSSING DATA 
1 te h » 

OUTPUT (THROUGH CONMCN) 

I-SAVE— “-A-S-I-X-WO RD— Afl R-AVM-USE D- BY— H A-I N )— C-GNTA-IN-ING-S 1 X— QP— T HE 

SEVEN VARIABLES NEEDED FOR ONE LINE OF INFORMATION IN . 

AN— ArSGENO-I NG-NODB— RBPOR-T-. ^ 

ISAVE(l) = PASS NUMBER (OF PRESENT ASCENDING NODE 

CftOSS-I-NG- C A T A— LT &R-) L 

ISAVS<2> = PASS NUMBER YE AR-MONTH-CAY 

I-SAV&<-3 ) P-ASS-NUMOB«-OAY-Og-y.eAB 

ISAVE(A) = PASS NUMBER HOUR OF DAY 

j.SyVVei-5-)-^-PASS-NUMB6R-M-INU'FS-OF-HGUR 

ISAVE(6) = PASS NUMBER SECOND OF MINUTE 

(USED BY MAIN) .SEVENTH AND LAST VARIABLE NEEDED FOR ONE 

Lrl NS— OF— I-NFCR-KAT+ON—I-N-AN-ASCfiNO-I-NG-NOOe— REPORT-. ) 

MAJOR VARIABLES! IN ADDITION TO ABOVE) 

Cl =:-LLSED-T-C— SAve-OA5(-OF— Y-EAR-OE-CBESENT— ASCENO-ING 

NODE CROSSING DATA ITEM. BECOMES DAY OF TEAR OF 


READlN(N-20> = 


USED TO SAVE SECONDS OF DAY CF PRESENT ASCENDING 
-NODE-C ROSSJ NG-CA-TA— 1T-EM-.BECCWES— S gCCtl[XS-OF-OAY— OE — 
PREVIOUS CROSSING ITEM WHEN CALCULATING PERIOD. 

-USED-T-O— S AVe— ve A«— OF— PRESENTL-ASCEN D-I NG -NODE 

CROSSING DATA ITEM. BECOMES YEAR OF PREVIOUS 

-CBGSG3N a - t - Tg M . WHaN CA LCU1.AXI-NG-PER-I.DO . 

DATA ITEM TYPE INDICATOR OF KTH OF ELEVEN 

-SAT-E4Jj 4-TE-CA T -A— I T -&)tS— IN-ORaSA-RECORD. 

=1 .REGULAR SATELLITE DATA ITEM. 

J2-.-ASCENnLKG-NOaE- CROSS J.NG R AIA ITFH. 

=3. NORTH PCINT DATA ITEM, 


=5. SOUTH POINT DATA ITEM.l 

=6-.S^UNL-LGHT— ENT-RANCE-DA T A ' - tT -EM-. 

=7, SUNLIGHT EXIT DATA ITEM. 



C :^ TA' - TTgM . ^ 

C READIN(N~ia) = DAY OF-YEAR OF PRESENT' ASCENDING NCDE CROSSING 

<= ; e-AT- AM - T -eH-. = 

C REAOINCN-17) = SECONDS -QF CAY OF PRESENT ASCENDING NODE CROSSING 

e OAT^ A - ITEH ^ 

C REFERENCE , 

G -t-gP-PE GERA b— SY-S T E MS B-I-V-I-S-I-6N . €A - I - T -P £R S8UR4^rP AR-YE tANDt-^-J^ B-I-TAL 

C DETERMINATION UTILITY' PROG'RAHS CONTRACT -NAS 5-1 0O2E , MARCH 1970 



’ 

e 

c 

<-TEL-0R-3— PfHIOn gCCTiCNl- —■'fe--- ^ : = 

METHCO ■ ' ‘ ‘ , 




C ‘ 

RECORD IS“ OF THE ASCEND I NO' NODE TYPE 5Y EXAf/INING THE TYPE 



c 

IN THE REC0RD(READIMN-20).N = El?.2Sl'.21).Xh£N_ THE FIRST WORD OF 

A‘ 



c 

ASCENDING NODE CROSSING DATA ITEM- HAS ‘BEEN FOUND. THE PASS NO.. 

- 



c 

ASCENDING NODE 'ARE STORED IN -ISA VE.'THE TIME IN MINUTES BETWEEN 




c 

CALCULATED’ AND STORED IN PERIOD. ISAVE AND PERIOD NOW CONTAIN 




c 

NCDE REPORT, 




c 

SUBROUTINE SUBFROGRAMS' 




c 





c 

LANGUAGE AND SYSTEM 




. c 

LEVEL OF ZERO, Cn" THE IBM ,360/95 US ING 'RELEASE 19. 


' 


0 
c , 

RGBERr K.SCHLes's'lNGER 

• 



c . 

SILVER' SPRING. MARYLAND 



' 

c 

GODDARD. space' FLIGHT CENTER 


• 

' 

C - ■ 

, 'GREENeetTfMARYUAND , ' 




c 

NAS 5-11790*TASK 72,SUSTASK* H 


' 

•L. 

‘ s « 

- c 





- ^ c - 



I SN 

0004 


-CCMMCN TITLE(2S6> .REACINI256) ' •- .PERIOD ,ISAVE(6I 

♦ 



c 

TO FACILITATE TFE USE OF OEEUGGING TOOLS, ALL *GC TOF' AND »CALL* 




C ' 

'STATEMENT LABEL'S FROM 700-899 INCLUSIVE. 



c 

THE ’^LA BEL 999 




c 

-isolate' <iHICH‘SATELL'ITE' DATA ITEM IN READIN IS CF THE ASCENDING 


I SN 

00C6 


DC ICO N = 21,231.,21‘ 



C-19 










- 

6- 

C 


-IF TVraE— INPIC-A-Ton OF KTH OF gLEVEH DATA -t-TgVS IN REaOIN EQUALS 2. i 

THE ASCENDING NODE CROSSING ITEM. HAS BEEN FOUND. STORE DATA 

I SN 

0006 


700 

IFCREADIN<N-ZOV,eQ.2.fcO J T30 TO HQ 



C 


STORE PASS NO. OF THIS ASCENDING ITEM. 



c 


STORE YEAR-MGNTH-DAV OF f HI S '*ASCEN0 ING ITEM^ 



• c 


STORE PAY OF YEAR OF THIS ASCENDING ITEM, 



c 


CONVERT ASCENDING ITEM TIMEISEC OF DAy> TO HOUR OF CAY < INCLUDES 

r SN 

0012 



READl = RHADiN{N-lV)y360_0.’. ' - . , ' 

'I SN 

0013 



-r£AVEl'4)=REAqi J . 



c 

' 

off; ^ ' ‘ 



c 


FIND ASCENDING ITEM ' FRACTIONAL H^GUR OF. DAY. / " * 



c 


CCNVERT ASCENDING ITEM FRACTICNAL HOUR OF DAY TC MINUTE OF HOUR. 

I SN 

0016 

c 


READl=REAOl*60, ' > . 

I SN 

0017 

■ / 

' 

ISAVEt5>=READI 



c 

... 

RCUND OFF. 



c 


FIND ASCENDING ITEM FRACTIONAU KINUTE OF HOUR. 



c 


CCNVERT ASCENDING ITEM FRACTIONAL MINUTE OF HCUR TO SECCND QF 

ISN 

0020 • 

Q 


READl=REAt)l*60. 

X.CJJ n/i^j 

c 


(DROPS FRACTION)* 

-T SA-VE-(6 • ' *• - 



c 


IF THIS IS FIRST ASCENDING ITEM FCUND ON 0R83A TAPE.SET PERIOD 

I SN 

0022 


71 0. 

IF (ISET.EQ.O) GO TO 199- 
.c.T.nnP. r»Av np vcAp rc ooPcPKn* ttpu , 

ISN 

0024 ■■ 


• 

CATE=REApiNCN-18) 



c 


ITEM AND YEAR QF PREVIOUS ASCENDING ITEM WAS A LEAP YEAR.AOO 366 

I SN 

002E 



IF<8EADrNtN-ia>‘.LT.'Cl .AND.MODt I YEAR 1 4 ) . EO. 0 ) DATE=D ATE+366. 



c 


ITEV AND YEAR OF PREVIOUS ASCENDING ITEM WAS NOT A LEAP YEAR, 
irin. ^_K«s -rn nav. np -vpio np pppciPuT dpfFMnTMp TTFwrnftTFi. 

ISN 

002T 


' 

IF(READlNCN-ia).LT.Cl.AND.MGD< I YEAR ,4 ) .NE* 0 > C ATE=D ATE>365. 



c 


PERIOD=PRESENT MINUS PREVIOUS ASCENDING ITEM CAT ‘OF YEARICDNVEHT 



c 


, PRESENT ASCENDING 'ITEM SEC OF DAY .RESULT ING SEC ARE DIVIDED 
. pv . A/v TT.n rpTAT'w i..Dpo f nn t w- m t wmtp'-c . .. 

ISN 

002S 



PERIOO=( { (DATE-cn >»B6400. 1-CE+REAC IN (N- 17 ) ) /6 O; J 


C-20 






ISN 

0030 

— e- 

720 

,IF HEREiPEniOO SHOULD HCT BE ZgROEDlCOTO 300). — ^ 

',GO to 200 




c 


STORE PRESENT ASCENDING ITEM' DAY OF YEAR .SECONDS/ OF DAY. 

AND YEAR', 

I SN 
T-cm., 

0 032 


200 

"‘suCuMc — P-ATA PQk — PREVIOUS* 'A GCC'N9”iN<T'"TTCM — WHEN — cAcCUL AT I n G 
Cl = READIK(N-t8> 


I SN 

0034 

— e- 


IYEAR=READININ-19 )/lbOOO,-' - - 

-THI-S-IS-SET— to- !■ AF-TEn F IRST- ASCEND INC ITEM IS FOUND ANB' 

■■PERIOD 


C ■ ZERCED (.FUTURE PERIODS Willi. ' bE" CALCULATED WITH GENERAL: "'EaUAJ ION. 

j ^ 1 ^ ‘-1 LL_ 

SSS' RETURN ' ■ .'5-' 

E-NO ^ ^ : . ^ 


t-SN”043S- 

ISN ooze 


0 - n - T R -*- N c R - o - s^ — R c r c n c H c c 




SVH8CL— 

N 

— iNTEni 
ooos 

NAL 8-T-^ 
OCO€ 

^TE^4ENT 

0009 

NUH8 

0010 



0011 

0 012^ 

'0024 

0025 

0027 

0029 

0032 

0033 

0 034 

- 



C2 

.9P29- 

0032 






* * 





■ 



* 

DATE 

0024 

oo2e 

0025 

0027 

0027 

0 029 











FLOAT 

0014 

OCX e 





\ 



• 




4 

. 


lYEAR 

, 0025 

0027. 

0034 





pm 

ill 


IM 

pm 





REA02 

0014 

0015 

ocia 

0019 













ASCEND 

0002 
















ReAl>IH 

0004 

0005 

0009 

0010 

0011 

0012 

0024 

0025 

0027 

0029 

0032 

0033 

0034 

- 
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-t-i- 


T I 


100 0008 

— nEpgrCNCCG 

OOC5 

t 

>'*■ ■ . 

19^ 

0031 

002a 

— 


70 0 

0006 




72 0 

99^ 

0030 

0^36 ! 
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■ASCeND-i^ 




NAME TAG TVPE ADD. NAME TAG TYPE ADD. NAME TAG TYPE ADD. NAME TAG TYPe' ADO. 

N— SF pSA OO^M-l-A G-t— SP R*8 Oe04-3« C-G— SP FPtfi &0O-12E DA-TE—SI? OOO-t- 3 0- 

ISET S C I*A 0C1O20 ISAve SFA C IA4 001000 lYEAR S A 1*4 000118 READl SF R*8 000138 

R g A 0 3 -S p- H48 OGO 1-40— -T-I-Tt-S — C R40 N* H*-- -A^CE-NC — R4l8 OCO-tAG- PER-1 0 D-S R*8 — OOPfrOO- 

REACIN P C R*S CC080Q 


***** COMHCN INFORWATICN =***♦» 


NAMg-C-F~C0MMC-N~8LGCK * * S 1-2-E- OP-etOG« 004-02-4_t.&x.ADE€-I-MAL— SY-T-&S 

- VARr NAME— •TYPE--RCL-.— ACCR» VAR.— NAME T-YPE Pgt.-.— AOOR. VAP-.— NAHB T-YPE RELr»— ADOR. VAR.— NAME ^TYPE — REL-.-ADOR. 

TITLE R*a N.R. READIN P*B 000800 PERIOD RTS OOtOOO ISAVE 1*4 001008 

I-S04 1-*4 GG4-O0-O ^ =— 



t-AB Et ^A-CD-R IrABEt r-A©&f( LA B EL jWJBR tABEfc ABBR- 

T-OO — 0 0-€4-A^I IKH) 0^' b - l -BE .■■ '— ■■■ ■ ■■I . HrB 

720 000448 NR 199 00044E ‘ • 200 00045A 


♦OPTIONS IN EFFECT* NAr)E= MAI N» OPT=Wb» L'INECNT=56’J'S IZE=0 00 OK » 

0 ' „ I t J 


♦CPTICNS IN 

. .'• /» i’-: " ' - . ' ► . 3 

EFFECT SCURCE .EBCOI C,*.NOL I ST-, NODECK ^LO/^D . MAP *NOEO IT t ID » XREF 

♦STATISTICS* 

■SOURCE STATEMENTS = 36 ^PROGRAM SIZE = 1250 

♦STATISTICS* 

NO dTAGNGSTICS GENERATED ‘ 


end of COMFILATICN 1 1 3K BYTES OF CORE NOT USED 


-7 10- o nn' ^p^ n_ M P. 

“f ^ \j ^ ' \j\j yj \j\j I'trv 

999 0004BC NR 



9Z-D 


■ LCtfCL 19 ( JLKE 70' 

_) 

OS/360 FORTRAN H ■ 

DATE 71.158^1 1. A3. SS 






SOURCE* EBCDIC* NOLIST* NODECK* LOAD* MAP* NOED IT * ID * XREF 


c 

PURPOSE 



c 

ON AN INPUT 

BINARY ORB3A TAPE AND WRITE THIS PERIOD ON AN OUTPUT 


c 

' C0^TA1NING THE START ARD END TIMES OF THE SELECTED PERIOD. 


c 

-- - 

CALL SELECT 


C 



INPUT (THROUGH CCMMON) 


c 

c 

OUTPUT (THROUGH 

Ktnxj? 

COMMON) 


c 

MAJOR VARIABLES! IN ADDITION TC_ABDVE) 


c 

ESEC 

= REQUESTED END SECONDS OF CAY* 


c 


FOUND* 


c 

- ^ 

Tf^TCK' ... 

=l»FOUND AT LEAST ONCE* 

. . - <rnOTDA|*ki \ ilhtJ-T »>fn , tef*ic4 *A } . 


c 

lEKR 

= REQUESTED END HRS AND MIN(PEAD FROM PERIOD 


c 

lEN 

= REQUESTED END YRMODYCREAC FPCH PERIOD SELECT 


c 

lENREC 

- LAST 0RB3A DATA RECORD ON DISK TO EE COPIED 


c 

I ERR 

= ERROR INDICATOR REFLECTING UNUSUAL CONDITIONS 


c 


=O.NO UNUSUAL CONDITIONS. 


c 


=4, PERMANENT READ ERROR. DATA RETURNED BUT ITS 


c 

r 

IFILL 

= INDICATES IF LAST DATA RECCRD ON INPUT 0RB3A 

TADP WA« 1 1 \JAI tn CATCI 1 TTff TATA fTPU«. 


c' 

. .r . 


:=0. RECORD NOT FILLED WITH It VALID DATA ITEMS. 
-1 * ^ Dcrnen ^Tiicn urru ii vAirn hata ttptmc. 


c 

IHR 

= requested START HRS AND MINI READ FROM PERIOD 


' * • C 

incpd' 

= FORTRAN LOGICAL UNIT NO. FOR CARD READER (5). 


c 

f .V ^ 

1ST 

= REQUESTED START YRHODYiREAD FROM PERIOD 


c 

ISTREC 

= 1ST 0RB3A DATA RECORD ON DISK TO BE COPIED 


c 

I WORD 

= >LAG.USSD IN WSNEOF(AN ENTRY PT. TO SUBROUTINE 

awTADA } ff\o coAfjrurtjn^ 


' c 


al.WSNEOF WRITES ONE SENTINEL ITEM RECORD. 


c 


OUTPUT 0RB3A TAPE* 


c 

JS.YQUT 

END-OF-FILE ON OUTPUT DRB3A TAPE. 

=.-FOR.TRAN LOGICAL. UNIT . NO. FOB SYSTEM PR INTER-CE-).. 




FOUND «- 


• =1.FQJJND* AT' LEAST , ONCE. 


-HAS -BEEN -FOUND. ’ ' ./ 


=l,NOT FOUND 


--•RECORD, SENTINEL ITEM RECORD, CR SENTINEL RECORD. 





ST 


TITLE (5) 


TITLE ( 7 ) 


ITEMS 1NT3RS3A DATA RECORD. CHECKED FOR 99999999 


HAS':;i-lff-VAL ID DATA ITEMS. 


...DATA RECORD CN INPUT ORB3A TAPE, 


i. REQUESTED START YRMODY , FLOAT . PT. 


f *■ '■•I ■ 


= SATELLITE DATA START TIME C'AY OF YR, 


= SATELLITE DATA ■ END TIME YRMODY. 


TITLE (S) ‘ ' ■ = SATELLITE DATA END TIME SECONDS OF DAY. 


IBM FEDERAL SY_STEMS C IV IS ION, 6A ITHERSBURG , MARYLAND, ** pRBI TAL 


{TEL0R3 PROGRAM SECTION) 


BACKSPACING AND/OR REWINDING A 7-TRACK BINARY INPUT 0RB3A TAPE 


t 71? 5S tlVi*!* 


SUBROUTINE, DBFOR, WHICH IS REQUIRED FOR READING THIS INPUT TAPE 


THE CAPABILITY IS DESIRED IN SUBROUTINE SELECT :pOR BACKSPACING- 










ON AN INPUT 0RB3A TAPE .SUBROUTINE SELECT COPIES ONTO A SCRATCH 






RECORD OR THROUGH THE SENTINEL ITEM RECORD WHICHEVER THE CASE 


TITLE ARRAY BY MAIN AND TITLE IS AVAILABLE TO SELECT WHEN 


■ 1 ■ I ^ ^ I II * I S 


END TIMES ARE READ FROM THE SELECT PERIOD INPUT CARD. DATA 




REQUESTED START TIME IS FOUND THE NO. OF THE RECORD CONTAINING 


C-27 



SATELLITE DATA ITEM “ON THIS RECORD IS STORED IN THE, SATELLITE 


DISK RESUMES AN[JtOPO^ F'l ND ING THE ^REQUESTED e^D TIME. THE NO, OF 


LAST satellite DATA, ITEM CN -THIS RECORD IS STORED IN THE 


hJP M f IH'PIm J*l .Ml 


RE\»CUND AND THE TITLE ARRAY ICORRESPONDS TO A REVISED TITLE 


DATA) IS WRITTEN AS THE TITLE RECORD- QN THE OUTPUT 0RE3A TAPE, 




; OUTPUT 0RB3A TAPE FDR-THOSE RECORDS ON THE DISK HAVING THE 


TYPE RECORDS ARE' PREPARED AND .THESE RECORDS ALONG WITH AN 


REQUIRED SUBPROGRAMS - • • ■ ! 





RTAPEA.WSNECF.wTAPEiKALL' 3 ARE ENTRY. POINTS TO RWTAP4>, 

'• '“•‘“Tni.r Cl ion .. ' 


THE FORTRAN BASIC SU PPLIED -MATHEMATICAL-FUNCT ION. FLOAT 

■ — A *kir% <?*r ^ ii' *' • 


' SELECT HAS BEEN COMPILED UNDER FORTRAN >IV. LEVEL H .OPT IMIZATION 


PROGRAMMER 




,c.. ,5 COMPUTER Sciences corporation 


PREPARED FOR 


C -national AERONAUTICS AND SPACE ADMINISTRATION 


: • CONTRACT NUMBER ^ND CCMPLETION DATE 

; NAS-5 .- T - I 79 . 0 . T AS K-T^VS UBT A Sy .- hT 

C completed ON 7 MAY 1971 


C *!** START PROGRAM ^ + ***+T + ^*#******** ******#****^**4*** ♦♦**♦**♦*:*♦**** 


lEN 0003 


IMPLICIT REALM'S'- (A-l-.a-U,W-Z> 


ISN 0006 


ISET 

-miNE^ -V O999G0g9 ,-fr0— yg — ^ 

INCRD .JSYOUT ,IDtSK / E. 6. 14 / 


STATEMENTS, WHICH WERE NOT REFERENCED INITIALLY HAVE BEEN ASSIGNED 


■'MAIN PROGRAM. 


: COPY INPUT QRB3A CAT Af RECORDS ( NOT -T I-TLE RECORD) ON SCRATCH DISK 

^ Turar^*»/Mj A.ri?l 


ISN 0007 5 CALL RTAPE4 (READIN, lERK ) 

^I-SN--OOOa WR-I4^^C«-SK)— RE-AD-TN ; : -L 1 ^ : 

ISN 0009 700 IFIREADINU ) .EQ.XNINES) GO TC:6-’ 

I-S N- 0 O 14 T^OZ-GG-TCL-S ; II . •- L_ - - - -• 

ISN 0012 6 CCNTI'NUE ' . 
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I-5N— 0O-l>3 

ISN 0014 


ISTREC=0 


“ • 



ISN 0016 


IRECRD=0 


' 

■ 

" 

ISN OOlB 

, 

TDATE = 0’ , 





ISN ooao 

i-SN— eO^T 


n«ORD = l 

— .NaCND = 0-' ^ 


• 

- 



C READ REQUESTED PERIOD 'START AND END TIME.' . ' - 

C COMPUTE REQUESTED STA^T _AND END SECONDS .-’>■< ‘ 

T-SN— OO-a-3-^ ST = FLOAT ( - 1S T') — : ^ 

ISN 002A EN=FLCAT(IEN) ' 


— i-a-N— 

ISN ooae 

r_CM nrj 


JKR°IHR/1 QO r ; — 

Jf'IN=IHR-{ JHR4=100> . ' ^ 


T SN 

ooEe 


LRIN=IEHR-(LHR410QJ 


I SN 

0030 


S£EC=FI_OAT { I SEC ) 


I SN 

0032 


ESEC=FUCATt ISEC-) 

' 

I SN 

0033 


WR17S{JSYOUT,2000) IST,SSHC*.IEN,ESEC 




c 

SEARCH FOR ACTUAL START TIME. ■ - - 


ISN 

0035 


READ(IDI'SK) REACIN 




' c’‘ 

irS-^rtLTl — — : ; 

‘if 'THIS RECORD IS A SENTINEL TYPE RECD'RD#PR INT ERROR MESSAGE 

I SN 

0037 


IF(READIK(1).EQ*XNINES1 GO TO 15 • ' 




C 

YRMODY^GQ TO 20* 




c 

IF REQUESTED START YRMODY HAS SEEN FOUND IN PHEVICUS RECORD t 

I SN 

0041 

Toe 

IFC IDATE.EQ. 1) GOTO 2S’ 


1 SN 

0044- 

.15 

WRITE! JSYCUT,20 10) 

- 

I SN 

004 6. 

V 4* 0 
20 

CONTINUE , , . ‘ 


I SN 

,0047 


IDATE=l' ' ■ - 




c 

REQUESTED START SECONDS. READ ANOTHER .RECORD { GG‘ TO 10). 



- 

C " 

IF- SEC OF DAY OF, 1ST DATA ITEM IN THIS RECORD*‘ARE GREATER THAN 



c 

RECORD(GO TO 24). 




c 

IF HERE ,READIN(4) = SSEC.. 




c 

WRITTEN(COPIED) ON OUTPUT 'OSES A. 




c 

END SEARCH FOR ACTUAL START TIME. 
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ISN 0053 


T1TLE(4)=READIN(21 





c 


CRB3A-TAPE BUT OUTPUT CRB5A WILL BE GENERATED ANYWAY. 


ISN 0090 



— irSN o oca- 
I'sN 0094 
— I-SN— 009-5- 

— I-SN-0096- 

— I■SN-o^39-T- 

— rsN-009-e- 


ISN 0099 


DISK AND PREPARE -T,0 GENERATE OUTPUT ORB3A<GO X0'60).. 

— 4 a - I F4- M> A- T -E-.&G»- l - j CD ■ Tc' -^ 'o - — : — = ^ 

760 GG TO 45 . , . , . ' ' 

— <H>^-eeNTW«£ ^ 

IF HERE, THIS RECORD DOES' NOT HAVE ELEVEN VALID DATA ' ITEMS. 

0 ; 1 

FIND LOCATION CfIyRMODY OF LAST VALID DATA ITEM.. 

LY RM D V— 1 — g - H -3 ^ ^ ^ ^ 

find LOCATION OF SECONDS OF DAY OF LAST VALID, DATA ITEM. 

— trSO P - I— 2 ^-TB— ^ 

IF YRMOOY OF LAST VALID DATA ITEM IN THIS -FINAL DATA RECORD IS NOT 


762 IF(READIN(LYRMDV) .NE. EN ) 60 TO 42 


C IF SEC OF DAY OF LAST VALID DATA 'ITEM IN THIS FINAL DATA RECORD 


C PREPARE TO GENERATE OUTPUT QRE3A(GQ TO 60>. 


C IF HERE, SECONDS OF DAY OF LAST VALID DATA ITEM ,LT. REQUESTED ^ 


ISN 0IG3 '770 GG TO 45 • - ' > 

-I-5N-O^I04— 46-eGNT-IMJE 

C IF RECUESTED END YRVODY .HAS BEEN FOUND IN PREVICUS RECORD. 


772 IFILCATE .EO. IJ GG .TO 51 • 


C YET BEEN FOUND. 


I’SN 0107 

-T SNr-ome^ 


I-SN— 0-i-e9- 

ISN' 0110 


ISN 0111 


760- GC TO 30 

— 5+-eEN4-H^Ue— ■ 

"BACKSPACE TO BEGINNING OF PREVICUS RECORD. .. ' 

BA CKEFAC E — I - DFS K — ^ l 

BACKSPACE IDI-BK 

New-RE-R&»P-PR£VI-C- U S --n& eO R D » ^ = 

REACCIDISKl REACIN 

IF— YfWQSY— OFL-LA-S- 7 DATA T4 gj ^- IN _ T . H 4-S— RE-GQRO— IS - N C-T— &OUAL— TC 

REQUESTED END YHMODY.THIS PREVICUS PECORO CONTAINS ACTUAL 


ISN 0112 


. 762 IF(READIM212 ) .NE. EN'> Go TO 52 


ECUAL TO REOUESTED„-END- SECONDS', TH I S PREVIOUS RECORD CONTAINS 


ISN Oil* 


764 IF(ReADIN(214) .GE. ESEC) GC TO 52 ' 
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<- 




ISN 0116 T90 go to S4 


-Trk:f1117 rtn rrMTTVlir 


-.<^1 1-a — 

C 


SET LDATE=1 TO INDICATE REOUESTED END YRMODY HAS BEEN FOUND. 



c 


IF SEC OF DAY OF 1ST DATA ITEM IN THIS RECORD ARE LESS 

THAN 

I SN 

0119 



792 

''tF(REAOlN<A> ,LT, £SEC> GO TO 30 




C 

G- 


IF SEC OF DAY OF 1ST DATA ITEM IN THIS RECORD ARE EQUAL 

TO 

I-SW- 

0121 — 1- 

c 

7QA. 

TIHE<G0 TO S3), ' ' ' ' 




C 

-C- 


I F , HERE.REAOIN(4 > GT. REQUESTED END SECONDS OF D'AY. 


ISN 

0123 



BACKSPACE IDISK 

‘ 

— t SK 


c 


NOW.RE'READ PREVIOUS RECORD* 




c 


IF SEC CF DAY OF LAST DATA ITEM IN THIS RECORD ARE LESS 

THAN 

T OJ 

m 

c 


TIMEIGO TO-54). 


ISN 

0128 

— e_ 

S2 

continue 




c 

- , 


STORE VALUE OF RECORD COUNTER MINUS I TO BE USED AS LAST RECORD TO 

ISN 

0129 

fli 



IENREC==IRECRD-1 


ISN 

0131 


S3 

CCNTINUE 




c 

Q— 


STORE VALUE OF RECORD COUNTER TO BE USED AS LAST RECORD 

TO BE 

ISN 
ISN 

0132 
013-3 


— SS- 

IENREC=IRECRD 




c 

C- 


END search for ACTUAL END TIME. 


I SN 
tSN 

0134 
-W-3-S 



TITLEI7)=READIN(212) 

-TITLE{8>=BEAC1N(213) ! 



ISN 0136 TITLE{9)=READIN(214) 


ISN 0137 




810 GC TO 60 


C READ 1 RECORD TO^ OBTAIN ACTUAL END TIME. 

■^ SN 0139 READdO - ISIO-REACIN ^ 

ISN 0140 820 GG TO 53 

-t'SN 01 4-1 60 CGNTI N UC — 

C REWIND DISK AND PREPARE TO GENERATE OUTPUT QRE3A. 

-I-SN— 0 4- 4 a BSWXNO- lOISK 

C WRITE title record ON OUTPUT ORE3A. 

-I S N 0143 8 3Q - CAH. WTAPE4 ( TITLE 1 

C SET SCRATCH DISK RECORD COUNTER TO ZERO. 

■I-SN— 0-t44 I R E€RP-=0 — 

ISN 0145 832 1F( ISTREC *NE. -I) GO TO 80 

C I F — H E B E. COPYING -aRn CFn il HF , FROM .. Srg A Tr H riTRK _ Tn r il TP II T BFRTMc; 

C WITH RECORD 1 ON, SCRATCH DISK. 
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-7•0-e€^47-I-^Ue- 




'I-SN -0-1-4^— 


READ A RECORD FRCf< SCRATCH DISK. 

r&a«-n ^ 

IKCREHENT RECORC READ FRCM SCRATCH DISK BY ONE. 
-T-ReCROg^TR-e CRC I- l = 


^I-SN --<i-l-5D 

ISN 0151 


WRITE(COPY) THIS RECORD ON CUTPUT 0RB3A. 
-CAtt-wTTW^A+R&AIH-M ^ 


642 IFtlBECRO .EQ. lENREC) GO TD lOo' 


-I-F — HER E.THCRC A RE-rMe R E-~ n~eOROg TO OC CO P ICD. 


ISN 015-3 
I-SN~04 54- 


8S0 GC TO 70 


C READ A RECORD FROM SCRATCH DISK WITHOUT COPYING TO OUPUT ORS3A. 

_G TH IS I S - T - O - E - V &NW ALC - Y - 

C DEGIN -later. 


I-SK- ■ - 0 - VC - C - 




C INCREMENT RECORD READ FRCM SCRATCH DISK BY ONE. 

— t-SN-CH.-Se Tft CCRD=IRCCRO II — 

ISN 0157 652 IF(IKECRD-H .EQ. ISTREC) GO TO 70 

e . - I F- H EPE -. T -HERE— A- RE MB RE— SCRATCH DISK RECORDS -- TO ■ CE READ WIT HOUT- 

C ■ COPYING TO CUTPUT 0R63A, 

I-SW — 0 - 1 - S S 8 00 - G - C " TC ' 80 -r 

ISN 0160 100 continue 



ISN 0161 TITLE! 1 5=XNINES 

ISN oic -a e e- g — i -F ( ' ir ILL icc» - i - t - i — oc tc loo 


C IF HERE. LAST DATA RECORD WRITTEN CN ORB3A DOES NOT HAVE ELEVEN 

6 VWrTB-BAT A ITEMS - . 

ISN 0164 H>0RD=2 

G I W ORD=>2 — W- ILL "GAUse WSNEOF TG — W RITE • 2 - SENT INEL -- nECOnCS" ON 

C OUTPUT 0RQ3A. 

ISN - Ol &S 870 C 6 TC 110 

ISN0166 105 CONTINUE 

• e IF. HERE .L A S T - DA t T -A R C C OR G -W R I - T - TEN C N - BROSA HAS CLCVE N- VALID DATA 

C ITEMS. 

e : c_ 

C CREATE A RECORD HAVING 9999SS9D.DC IN EACH OF THE FIRST 21 WORDS. 

I-SN— 0 - 1 - 67 B O 1 00 L ° 1 . 2 1 

ISN 0166 READIN{L)=XNINES 

— i - S N- o i-es — Hre-eeN«H4iE — — 

ISN 0170 110 CGNTINOE 

^ 6 N ew W RITE ' END SEN T lNEL r S - CN e uTPUT 0R B 3A . : 

ISN 0171 880 CALL wSnEQF t REACI N, T ITLE , I WCRD 1 

I SN 01 7 3 TF'(NCENB -. EQ. 01 WHITE C JSYCUT . 3030 4 

C WRITE ACTUAL START AND END TIME OF PERIOD OF DATA WRITTEN ON 

— 6 eUTP UT G R D3A. 

ISN 0174 WRITE! JSYOUT, 2040 ) TITLE 141 .TITLE 1 6 > ,TI TliE! 7 1 ,T ITLE ( 9 1 

I - SN 01-76 , 

ISN 0176 1000 FORMAT! 16 . IX, 14, IX, 16. IX, 141 

ISN - 01 - 7? 2000 ’^OnMATd H O . SDX , lOHSTART TIME , 9X . 8 HEHD TIME/- 

1 IH ,20X. 30HREQUESTED TIME PERIOD SELECTED, 6X, 4H0ATE, 2X . 

2 1-OHe EC OF 0AY . ax .4 HDATE . 3X. lOHSEC OF CAY/ 

3 IH ,20X. 22HF0R OUTPUT CRE3A T APE. , 13X, I6.T X ,F7 . 0. 4X , 

; 4 1& , 1X .F 7.0 ) 

ISN 0178 2010 FCRMAT! 1H0.20X, 69HRE0UESTED START TIME IS NOT CN INPUT OR83A TAPE 
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t»feXECuTte M Tfefi^<t^AT£D» - ) — 

tSN Olt9 2020 t=ORMATt 1M0*20X» 6AHREQUESTEC ENO TIME IS GRBATES TMAN LAST TIME ON 

1 Input ons3A Tape/ — 

2 IM >2dx» A?HBUT auTPOT QSeSA -TAPE WtLL BE fiENEfiATED ANYMAY* 

5 ^ ^ 

tSN CISC 2030 PaRMAT{tft‘o«20X* S5«ENTtRe . REQ06ST60 TIME PERIOD SELECTED EXISTS ON 

1 I n put— 0R B 3A TA P E*/ ; : 

2 IH *20Xi 37M0 uTP'uT ORBSA TAPE HAS BEEN CENERATEO.) 

t - GN - 01 8 1 SO A O F On H ATt IHO » 6 9 X t ' 1 OHSTAR - T — T - I M E -i^ Xr e HgfO TI M E/ 

1 IH ,20X* S7HACTUAL TIME PERIOD SELECTED* 5X. 4HDATE. 2X, 

3 -IH «2dX'. 22HFQR OUTPUT ORBSA TAPE* * 1 2X »F8 .0* F7*0 » 3X« 

1 4 ; — F a » 0 *F^ 7 . 0) ^ 

ISN 0tS2 2050 FCRHATI IHOt 20X* 48HNQRMAL TERMINATION OF SELECT TIME PERIOD OPTION 

: ^ : ^ ^ 

ISN 0183 S9S return ' ■ • 

■ 1 -SN-O-i-frA END = 
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C-35 


a f? T ft A N 


•C'-P- C--S-S - -'P-e-F-F-R e-N-<r-6 t'-t -S-T— I -N-G+**** 


PA GE- O 1-0 — 


SVMf3CL 

INTERNAL S 

TATcFFNT 

HUMg 

I 

0080 

008 1 

CC97 

CC9S 

L 

0167 

0166 



cN 

0024 

0 C / H 

CC34 

CC95 

ST 

0023 

0C3C 

- - 


lEN 

0C22 

0024 

0033 


IHR 

0C22 

0C2£ 

0C26 

- 

1ST 

0022 

0023 

0033 


JHR 

0025 


- 0025 — 

— 

LHR 

0C27 

ccae 

0031 


Esec 

0032 

00 33 

€-088 — 

■0 1 0 1— 

IE HR 

0C2Z 

0C2? 

0C28 


TERR 

00 07 

- 

. — 

— 

ISEC 

0C29 

003 C 

0 031 

0032 






JI^IN 

0 0 2*5 

0C2C 



LMIN * 

0C28 

OG-3 1 



LSCD 

0098 

0101 



SS5C 

OC30 

0023 

-■0048— 

-0050- 

FLOAT 

0023 

CC2A 

0030 

0032 


0006 ooce 0013 0035 0060 0061 0063 0067 0069 0076 0077 0079 0109 

--01A2 - Ol<i-{ -0)&= = 

0017 CC96 C162 

' ~ 00 06- ~00£*S“' 

0 0 04 

: — ooeo— 01-64 e-l-TH 

0019 COGS 0105 cue 

OOM 009 0 01-7-2 

0004 00S2 0054 0055 0064 0065 0066 0134. 0133 0136 0143 0161 0171 

16 — 0 0 i 5 0 C-76 0-1-E9 0-1-3 2 0 1 S I- 

!0 0016 0036 0036 0052 0057 0062 0070 0070 0078 0129 0132 0144 0149 

;c — OOIA -0 06-2 0662 0-146 01-67 

tT 0006 0033 0044 C085 0172 0174 0175 

I Y- -0097- 0095- 

lO 0 0 04 


RTAPE4 

-setecT- 

WSNEOF 

WTAPE4- 

XNINES 


-01 SO-— 0166- 04-7-i- 

0007 

-00 02 

01 71 

0143- 0160 

0005 OCC? 0037 0071 0031 0161 0168 


0065 

0066 

0 134. 

0|3S 

0136 

0 143 

016 1 

0171 0174 

017A 

01T4 

0174 

• ' 


0C62 

0070 

0070 

0076 

0129 

0132 

0144 

0149 0149 

0151 

O"! 56 

0156 

01S7 


0174 

0175 








' 













OOfi 7 

_0O^9 

.-0 07 1- 

0099 

0101 

01 1 1 

0 112 

0114 

0119 

0121 

0125 0126 

0134 

01 35 

0136 

0139 

0148 







0 R T R 4 N 

C-R-O— 5--S 

RCFC-nCNC c 

— L r g T I N 


l*dcl 








c 

0007 

COIL 







1 0 

0034 

0 04 3 

0046 






20 

0046 








25 

0059 

004 1 







35 

0076 

C071 







43 

0083 

cceo 


. 





45 

0086 

00C4 

0103 






49 


CC73 


ir 





52 

0128 

0112 

C114 






54 

0136 

01 16 

0126 


• 




60 

0141 

CCS6 

CC^l 

0092 0101 

0137 




80 

0154 

0145 

0159 






Z05 

G166 

ciea 







lie 

C170 

0165 







70 2 

^704- — 

7oe 

001 1 








C039 








710 

0043 








72 2 0046 

730 

0056 








734 

G072 








742 

ooei 








746 

0086 








76 0 

C094 








764 

0101 








772 

760 

0105 

0-1-07 









Cl 12 

— -7SA 0M4 

79 0 one 
792 • " 0M9- - 
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UASEL 

794 

. 796-.. 

eoo 
810 
820 
63 0- 
63 2 

- 840 -■ 

84 2 

65 0 

052 

66 0 
86 2 

—'87 C ' 
€8 0 
99 5 
100 0 
200 0 
201 0 
202 0 — - 
ac3o 
2040 
20SC 


CFFIN6C- - 
C12I 

ti-F C-R— T“R-*A-N 3rR**0— S--3- — 

R -3—N— c— E 

— tr 


I— t^-G***** 






0 130 
0137 - 
ClAO 

0143- - - 
0145 


‘ 














C151 

-0133 

CI57 






‘ 





0162 

0165 

0171 
0183 
0176 
C-I 77 
C176 





- 






CQ22 





C044 





cieo 

C 172 


- 



0 182 

C175 






C-37 



88-0 









—/ 

■ OELEC-T— /- 

&I-ZE-C 

Jt— i'RUC'O 

00( 

)D62 HEX 


r-ES-PAGE- 

-01-3— 


NAME 

TAG 

type 

ADO* 

NAME 

TAG 

TYPE 

ADD • 

NAME 

TAG 

TYPE 

ADD* 

NAME 

TAG 

TYPE 

ADD.' 

IGN 

— . ..-i-Hn- 

SFA 

~SJS — 

1*4 



0C03C4 

IHR 

SF 


1*4 

0003CB 

/\ /H /N A -1 r\ 

1ST 

SFA 

1*4 

VU V*. l5 V 

0003CC 

JHR 

SF 

1*4 

' 00^ 4 ii S" 
0003D0 

XSEC 
bSCD- 

SFA 

1*4 

{-*4— 

ooo3eo 

ISET 


c 

1*4 

N.R. 

JMIN 

SF 

1*4 

0003E4 

LMIN 

SF 

1*4 

0003E8 

IFILL 
- 1 1 nA.Tti^ 

3 

I *4 

0003P8 

INCRO 

F 


1*4 

0003FC 

I8AVE 

c 

1*4 

N.R. 

lUORD 

SFA 

1*4 

U00400 

lENREC 

s 

1*4 

0<?040C 

IRECRD 

SF 



OOOAtO 

ISTREC 

S 

1*4 

1/ Lf u l# ^ u 

000414 

JSYQUT 

F 

-t-*4 

t*4 

000415 

SELECT 


R*0 

000440 

USNEOF 

SF 

XF 

R*a 

000000 

WTAPE4 

SF XF 

R«6 

000000 

XNXNES 

F 

R*8 

000446 



NAME OF 

COMMON 

BLOCK * 

* SIZE 

OF BLOCK 

001024 

HEXADECIMAL BYTES 







VAR. name 
W-TLE- 

TYPE 


PEL. ADDR. 

— QOOOOQ 

VAR. NAME 

TYPE 



REL. ADDS. 

1 ^048^0 

VAF. NAME TYPE 
PERIOD RjL8 — 

REL • 


ADDR. 
rfU 

VAR. NAME 
TSAVe 

TYPE REL. ADDR. 
— 1*4 N.R. 


ISET N«R. 
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tABEC ^A-CDR — 


trAaeir- 

— — 


IrArBEt— 

AC PR— 


tA&etr- 

ao&r 










6_ 

-00069^0 

5 Q-0 c-5 4-G“ 










10 000784 


704 

0007AC 

NR 

‘ - 706 

00C7BE 


70S 

&0— 

0007D0 



7 - 1 0 — oac-7&E- 

722 'OC08C6 

NP 

t-S— 

724 

oooaia 


730 

00084E 

NR 

24 

000854 








— BO Qq.QA— 



734— 

1 III 

25 — 0 0 C 86 2r- 

740 000938 


35 

00092E 


742 

000978 


43 

000992 

_ 7/^,4- -00 09 A 8- 





■16- 



75 0 0O09E-8-NR- 

i - ' ' 









42 OOC9EE 


760 

0009FC 


44 

O00A02 


762 

000A2A NR 





48— 



— " 

-Q09A-64-NPt- 

780 OOCA72 


,51 000A7S 

■ 

782 

OOCAAC 

NR 

784 

OOOABE 






792— 

— 00-&A&S- 

_f4P 

7-94— 

-099AF-0 

7-90 — OOOAD-0- 

796 OOCB36 

NR 

52 

OOOBAA 


80 0 

000B56 

NR 

S3 

OOOB5C 





: SA O-O-Oa &6- 


1-32-0 O^OSA-4 — NR 

55 *^OOGBo^ 

60 OOOBAA 


830 

000BB8 

NR 

832 

00 OBCE 

NR 

70 

OOOBDC 





tin 


0 0 oc ^0 


an BO-OCS-S 

E4 0 — 0-0 G&04- 

852 OOCCSO 



NR 

S60 

000C62 


100 

00 0C68 


862 

000C74 NR 










—OOOC:C:'5> 

Q.yQ 00CC-8A 

NR ■ 

1-05-^ 

O'OijCvG' 







aso 00CCC2 

NR 

999 

OOOD3C 








ii^OPTIGNS IN EFFECT* NANE= M A 1N» OPT-OO »L INECNT -58 « ST ZE-0 OOOK » 

^=OPTICNS IN EFFgCTt ’ SOURCE t E 8C0I C »NO 1 1 ST , NQDECK ,LO AD , MAP . NOED IT» 10 . XPEF 

★STATISTICS^ source' STATEMENTS = 183 , PROGRAM SIZE = 3A26 


★STATISTICS* NO DIAGNOSTICS GENERATED 

y^if**^* end of comfilaticn **★**★ 


97K BYTES OF CORE NOT USED 



C-40 


SOURCE, 6 BCD I C.NdL 1ST. NODECK, LOAD, HAP, NQED IT. 10. XREF 


INPUT 0RB3A TAPE ARE OF THE SUNLIGHT ENTRANCE/EXIT TYPE AND 


TIHES OF OCCURRENCE OF THESE SUNLIGHT ENTRANCE/EXIT DATA ITEMS. 

CALL 1NCL - SEQU SN€S i 

CALL SUNLGT 

ABS-NO— ARCUMBN-T-S— I N— T HIS- C A LL. I Mg-SE-OUBNCe-. 

INPUT! THROUGH CCMHON) 

NCKe. ' 

OUTPUTtTHROUGH CCMHCNI '• 

NCN&. 

HAJOR VARIABLES 

I-NHB »— SUNL-I-G+W-EKTfl'ANGE— HC4WT— SF-C-AY 


INMIN 
-_1 W3PB_ 
INSEC 


I OUT I = 

j^yout 

REAOIN(l) = 

READIN(I-20) = 


C 

c 


SUNL-I-G+W-EKTfl'ANGE— HC4WT— SF-C-AY 

= SUNLIGHT ENTRANCE MINUTE OF HOUR 

-=—SUNL-I-GHT-ENT-SANCE— PASS-NO, 

= SUNLIGHT ENTRANCE SECOND OF MINUTE 

^- S I; N I.- 1 ^ HT ENT BA MCE YEAR-nMOMTH'- OA Y 

= SUNLIGHT ENTRANCE DAY OF YEAR 

-^SUNL-I-GHT— SX-I-T-Kpua-C F— PAY 

= SUNLIGHT EXIT MINUTE OF HOUR ' 

SUNOI-GHTL-ex-I-T-PASS-NO-,- 

SUNLIGHT EXIT SECOND OF MINUTE 

■^-S U N L -I-GH T E- X I - T— VE An -HQI4 T H- D A Y 

= SUNLIGHT EXIT CAY OF YEAR 

-b-PORTBAN— I xOG-I-CAL-ON ITUNO,— BOB— S-Y^XSN-PR-lWTEfM 
= USED To CHECK FOIT PRESENCE OF SENTINEL ITEM 

BOCORD-OR— SENT-INEO-I^CQBO-, 

= DATA ITEM TYPE INDICATOR OF KTP OF ELEVEN' 

— ^ATELL- i - TE - GA T- A -- I PP6MS— t-N-ORaSA-PEGOBO, 

=i; REGULAR SATELLITE DATA ITEM. 

=2-WLSCENatNG-NOOE-CROSS4AI G-OATA— LTEM. 

=3, NORTH POINT OATA ITEM. 

=A-,0eSCEN04-NG— NOOE-OAXA—IAieM. ! 

=5, SOUTH POINT OATA ITEM. 



=7. sunlight exit OATA ITEM. 

RE AD I N (-T— 1 7 -> ■ - SECO NDS-QF— C-AY-O F_SUNL-LGNT— EN-T-B ANCE-CB— EW-T 

REFERENCE 

1 BM-FE COB AL— S-Y-S-TEBS-O-1 V-IS-I-0N-,-CA4 J-HEBSSUfl G.-MAB.VL ANOi-U-OBO I-TAI 

DETERMINATION UTILITY PROGRAMS, • "CONTRACT 'nAS S-l 0022 .MARCH 1970 

t » j* a, « * 


METHOD , 

S UBfiCOT-I NE— SU-NLG.T— OETIERM-I NES— I g— AN-ORB3 A . CA T A- RE COBO-COMT.A4AIS-A 

sunlight ENTRANCE OR EXIT DATA ITEM BY EXAMINING THE TYPE 

INC-ICATORCB IIISX— »!CBDJ..OIL.6ACa-OE-J.Ue-£LaiEAL..SAJELL.I.T.F— OAXA__LT.EMS 

IN THE RECORDIREAQIN! 1-20 ). I=2t, 231.21) .WHEN THE FIRST WORD OF A 


ENTRANCEIOR EXIT) ITEM HAS EEEN FOUND, THE PASS NO. , YE AR-MDNTH- 

O A Y ,DA Y - OF -YEAfl rAND-T-I-ME(-SUNL-GT— CCNVERT-S— TC-HBS-.M IB. SSC-)— OF— THE 

ENTRANCE ANDXCR EXIT ARE PRINTED AS THE BCD OUTPUT OF THE 
SUNLIGHT- REBCP-T-. 




— e- 
c 


-Rg<HiirtED"SUSPRQCRAWG ; 

SUBROUTINE SUBPROGRAMS ’ ‘ ' 



c 


.FUNCTION SUBPRQCRAMS 



c 


LANGUAGE AND SYSTEM 



c 


level GF zero CN the IBM 360/95 USING RELEASE 19* 



c 


ROBERT K«SCHLESSi'nGER 



c 


SILVER SPRING *H Aryl AKD 



c 


GODDARD SPACE FLIGHT CENTER 



c 


GREENBELTiMARYLAND . ... 



c 

c 


NAS S-11790»TASK 72fSUBTASK H 



c 


A 

‘ a • i ^ . 



c 


^ 1 A j \ 1 J 1 ' LJ w 4 \ A ^ ^ ^ ^ ^ ^ Ip ^ If M ^ 'M V *1* 1 1 ^ P “P ^ i 1 M Ip IP H 1 1 *|i i P W i|* J| | p 

ISN 

0004 „ 



ClHEhSICN PEADI 256) 

ISN 

0006 



DATA JSYOUT / 6 / 



, c 


STATEMENTS WHICH WERE NOT REFERENCED INITIALLY HAVE BEEN ASSIGNED ' 



c 


THE ^RETURN* ST ATEMENT ( NOT REFERENCED INITIALLY) HAS BEEN ASSIGNED 











I SN 

0007 



IGO_=0 

I SN 

ooca 



IFST=0 

I SN 

0009 



IEXIT='0- 

I SN 

0010 


8 

WRI IE{ J3y6uT.,2000) 

ISN 0012 -C " 



WRI7E(JSYCUT,20 1C J 

liSN 

0013. -■ 


10 

CALL RTAPEAIREACIN. lERR) : 

I SN 

0014 


7C0 

I F(READIN( 1 } .EQ.XNINES J GO TD 600 

I SN 

0016 ■ 

— c- 

c 


DC 100. 1 = 21,231 .21 ' 




7i), AN ENTRANCE(OR EXIT) HAS BEEN FOUND. PROCESS DATA PERTAINING 

ISN 0017 


7C2 

IF(RgADIMl-20) .EO, 6. DO) GC TO 200 

I £N 

ooai 


lOO 

CONTINUE 

I £N 

ooaa 


7ce 

GC TO 10 
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ISN 0027 


ISN 0026 


ISN 0029 


ISN 0030 


ISN 0031 


ISN 0032 


ISN 0033 


ISN 0034 


ISN .0035 


ISN 0037 


ISN 0038 


ISN 0039 


ISN 0040 


SET IFST=1 TO INDICATE AT LEAST 1 ENTRANCE HAS' EEEN FOUND ON TAPE* 


indicates latest entrance FCUNDIhAS not been printed YET.- 


store entrance year-honth-day^ . - ' 


ISN 0043 


ISN 0044 


ISN 0045 


ISN 0046 


ISN 0047 


ISN 0048 





CCNVERT entrance TIME! sec OF DAYl TO.HR^OF D AY t INCllOO'ES ANY' 


DIFF=READINf I-17I/3600. . . " ’ . 


INHB=DIFF , * - ■ 


DIFF1=FL0ATI INHP') . ’ 


DIFF2=(DIFF-DIFFI>*60o , 


I 1NHIN=DIFF2 


oiffi=float<inhin) 


DIFF2=(D1FF2-DIFF1 )460. . 


; INSEC=D1FF2 


INQRB=READIM I) - - . r. 


FOR ‘AN exit ITEM).- 


IF here, AN EXIT HAS BEEN FOUND, 


300 IExn = l 


ICUT=R6ADIN< 1-19) 


ICUT1=READIN( 1-18) 


OIFF=READIM1-17)/36 00. 




■!TSfM#4TT 





DIFF=(DIFF-DIFF1 )*60, 


ICMIN=DIFF 


OIFFI=FLOAT{ICH1N) ‘ 


DIFF={01FF-DIFFl)*j60. 


lbsEC=OIFF 


ICORBsREADINd > 


lbii=Mal=« 


C-42 



— i-SN- 

0^9"“'*" 

C 

■-ICOUM=-ICOUNT-<-l r— — 

IF 1ST ENTRANCE/EXIT 'FOUND ON TAPE IS AN EXIT, PRINT THIS EXIT DATA 

ISN 

0050 

712 

IF (IFST,EQ.O) GO TQ 400 


C 

PRESENT EXIT DATA. 




1 ‘ tOUTl» IOHR,IOHIN,IOSEC ‘ 

ISN 

0053 


IG0=0 ' - 

ISN 

0054 

720 

GO TO 502 

— 


C 

DfiTA NDVi. 



c 

IF SUNLIGHT REPORT PAGE IS F ILLED , PR INT COLUMN .READINGS 

I SN 

0 0 56 

502 

IF ( IC0UNT*GT#49) GO TC 8 

ISN 

0058 

720 

GC TC 10 



C 

IF LATEST ENTRANCE FOUND HAS NOT BEEN PRINTED YET, PRINT ENTRANCE 

I SN 

00 59 

V 

600 

IF( Ij3G«EQpl> WRITE! JSYOUT, 2040) I NORB 1 1 NT ♦ I NTl * INHR t INM IN, I NSEC 



C 

IF NO ENTRANCES AND NO EXITS HAVE BEEN FOUND CN INPUT TAPE^PRINT 

ISN 

0062 


lFdFST.60.0 .AND, lExlT.ED.O) V*RITE< JSYOUT,2060) 

I SN 

0065 

£010 

FORMAT! IH ,I0X,8HPASS N0,,4X,fiH DATE ,5X,9HDAY CF YR,6X , 2HHR ♦ IX* 




2 2HHR.1X,3HMIN,1X,3HSEC) 

I SN 

0067 

2030 

FORMAT! IH ,10X,I5,7X,I6,8X, I3 ,9X , I S . 2X, I 2, 2X. 12, 6X, IS.7X, I6,8X, 13, 

I SN 

0068 

2040 

FORMAT t IH ,10X. IS,7X,I6,aX, ta.OX. 12.2X, I2,2X. 12 > 

ISN 

0070 

2060 

FCRMATIIH ,10X, 66HH0WEVER, THERE ARE NO SUNLIGHT ENTRANCES/EXITS O 

ISN 
I-SN- 

0071 
-007 2 

SS9 

RETURN 

-eNB — 
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iM 

>4*4F- □ 


«-A-N 


0 C G ■ 

— R-e- 

F E 0 

E-N-C C 

1. I 










I 

OOIG 

0017 

0019 

0025 

0026 

0027 

0035 

0038 

0 039 ‘ 

0040 

004a 


IKT 

0C25 












lEPR 

00 13 






- 






iNhR 

— 

0028 

0C2? 

ocsz 

— OCBS- 

CC59 







, 



ICHR 0041 0042 0CS2 C05S 


— 

OlFF 1 

—0036“ 
0029 , 

003C 0032 

0033 

0042 

0043 

0045^ 

0046 

FtCAT 

0C29 

0032 

OC42 

0C45 





INKI N 

0031 0022 

0CS2’ 

CC59 





ISSEC 0034 

0CE2 0CE9 



■ 


lOCRB 

0C48 








ICUTI 

0039 

0052 







JSYGtT 

0006 

OOlC 

0012 

0052 

0055 

0059 

C061 

0062 

RTAPE4 

0013 








XNIMES 

OOCS 

OCl-! 








C-44 


















NAME 

TAG 

TYPE 

ADD. 

^AMe TAG 

TYPE 

ADD* 

NAME TAG 

TYPE 

ADD* 

NAME TAG 

OIFF 5F 

TYPE 

R*8 

ADD. 

..oofraco- 

lERR 

SFA 


1+4 

00027C 

IFST S 


oooaeo 

INHR SFA 

1*4 

0002S4 

INTI SF 

1*4 

000288 











— XKW)2C8— - 

_CXI-RF-2--S^ 

— R*S_ 

-000200- 

lexiT 

s 


1*4 

000294 

INMIN SFA 

14:4 

00029B 

INOHB 3F 

1*4 

00029C 

INSEC SF 

1*4 

0002AO 





T li 4 

M ...... A A 







I-OUT.1-.-SF 

— j.*4 — 

-<K>D-a^0- 

IBCOK= F 

XF 

I*A 

000000 

ICQUNT SF 

1*4 

000284 

JSYOUT F 

1*4 

00028d 

READ IN SFA 

R*e 

0002E8 




— 

-O-G-Q^M 

f^NLGT 

— Rte - 

-oooaos 



* 6 

-<w)oaG-o 









b-/4BEk. A^^BP 


-tAeet A-E-DF 


UrAB€b~ 


g 0^{j e&5-8 

7C4 00CBC2 

7,^^ 0^ ee-7-e-NR- 

400 00CFA2 
-OB 9 — 00-1 09-0 


— £ 0 OO 03-S 8- 

100 OOOBD8 


502 OOOFE8 


-T^K) 00-039>6— NR 

706 OOOBEE 

-74-a 0013F+a— NR 

730 OOOFF6 


_7-02 OOOBAG 

200 OOOBFA 

-7^^ £M>0 P9€— NR- 

600 OOOFFC 


->KGPT-I-eNS- 1 N-e FF9-G--R4- 


-NA M &= M A-I-N-»-0P-T-s.O 0-Tlr-I-NeeN-T-=5'6-»-S-I-2-6=<MX«^K-» 


-40PT~I-GNS— 


SGUflG6-r5-BGD-I-C-rNOU-I 


_4S-TA4-I-S-T-I-CS^- 


^4JR^— ST-A-T-E-MEl'i-TS- 


-■7-1— ^PR'OCPAM-SJ-Z-e- = ■ -■■— — 45^-8- 


-4-S-TA^-I-ST-l-C-S*™-Ne D-I-AGN<9S7r-I-9-S— &eNER-A-T-6D- 


-pnO-OF— &0-NR 







=l,VSNeoF WRITES CNE SENTINEL ITEM RECORD. ThO 


END-OF-FILE QN OUTPUT ORB3A TAPE. 

^=_^IeBJPRAK-L■0S4^L--U^^W-44O..--JSOR— Sy-SIEM-PBiNTER+S^-. 

= A 2S6-WGBD ARRAY CONTAINING AN GR83A DATA RECORD 


READINC 1 J 


DATA ITEM TYPE INDICATOR OF 1ST SATELLITE DATA 


FOLLOWING VALUES 

=-L.JiSGU U A R — SA- T ELL-IT^;. D A T A IT -g-M-. 

ASCENDING NODE CROSSING DATA ITEM. 

•ktno'rij OT'Tk.iT- r^fc-r* 


■ =4. DESCENDING NODE DATA ITEM. 


6.EUNL.IGHT ENTRANCE DATA ITEM. 


READIN13J = DAY OF YEAR OF 1ST SATELLITE DATA ITEM IN 0RB3A 


READINI4) = SECONDS OF CAY OF 1ST SATELLITE DATA ITEM IN 0RB3A 

^ RgCOFUA. — 

RSADIN<212) = YEAR-MCNTH-CAY OF LAST SATELLITE DATA ITEM IN 
CR83A-R&CORC-. 
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-6 R6- ABI K- < - g - ^3) -~ - day OF Y. E An-OF-U-AST SATELLITE DATA ITEM I N 0RB3A^ 

C : RECORD. 

-6-^ R e ADl N (a * ») » SECO N DS Or DAY OP LAST QATELL lTE - OA -=fAr^ ITE W - IN 

C ■ ' . ■ ORB3A RECORD. 

-€ -■■■■---■ READ IK (232) = .- 1 ST— WeR - & - K3F~ S P ECI AL DAT - A ITEfi IN - ORBSA - fiECOSO 

C ' WHICH IS THE TYPE INDICATOR FOR THIS SPECIAL DATA 

-C- -I TEH ■SHOULD HAVE .T H E-V A LUE' Cp- gg , 

C READINC23A) = 3RD WORD OF SPECIAL DATA ITEN IN ORB3A RECORD 

-e : W H- ICH INOICATE.S WHETH E R — SR - NCT AN ASCE N D - I - NG --N eg € 

C CROSSING DATA ITEM EXISTS IN -THE RECORD . SHOULD 

-C i HAVE THE ■ V A LUE - GF 999 . , O R BE T. g 4 ?UAU - TQ -A V A L U E 

C . - , BETWEEN 0 AND 100 PERCENT INCLUSIVE. 

-G TITLE( 5 ) — r ^-SA T E LLITE DATA START - T - t - M E-0 AY OE - YEAR . 

C TITLE(7) ■ = SATELLITE DATA END TIME YEAR-MONTH-OAY. 

■€ T-I-T L .E ( -a ) SATELLITE DATA END' TIME - PAY OF - YE A ft. 

C TITLE (S). = SATELLITE DATA END TIME SECONDS OF CAY, 

-e XDATE r - ■ LlOC - AT - tGN - FQR KEEP INC -A' - RUNN IN G COUN - T-'GF DAY" OF 

C ■ ' YEAR OF 1ST SATELLITE DATA' ITEM IN .ORBSA RECORDS. 

-€ RE FE R ENC E ^ ^ ^ r 

C I BM FEDERAL .SYSTEMS D I VIS ION^ GAITHERSBURG. MARYLAND .*• ORBITAL 

-e DETERMINATIOM UTILITY PROCn AMS , «« CONTRACT NAS— S ^ l - O Ca a t MARCH -- 1 - 9 - 7Q 

C (TEL0R3 PROGRAM SECTION) 

■E ME T HE B ^ = r^-rr : = ^ 

C BACKSPACING AND/OR REWINDING A 7- TRACK BINARY INPUT DRB3A TAPE 

-€ T S- N OT - ALLOW E C --W H EN- U S I - NC THE SPEGIAL --P URPCSE FORT R AN - LIBRAR Y 

C SUBROUTINE.DBFOR, which' IS REQUIRED FOR READING THIS INPUT TAPE 

-e ( SEE ■ SUDROUTI KE .RWTAr - A - ) - «S.IKCC -^ T H e - C - APAOIL ITV IS DESIRED IN 

C CHKREC’ for BACKSPACING AND/-OR REWINDING THE INFORMATION 

-e CONTAI N ED IN T HE - C h A - TA --R CCOnPS ■ ON A N I - N P UT GRB3A TA PEr C -H KR E C 

C COPIES^ ONTO A DISK THE INPUT ORB3A DATA RECCRCSt I NCLUDING ANY 

-G- having' R EAD — E R RO R S ')— U P^- TO THE ENO -» CF - FILE . AN EOF IS WRITT EN-ON 

C THE DISK. the, DISK IS REWOUND. AND CHKREC ENTERS .A LOOP WHICH DOES 

-G ^ — THE FOLLOWING ^ 

C ' ■ . - ■ 

-G— I- .READS A' RECORD - FRO M TH E DISK IN TO- THE - READ IN AnOAV AND TESTS - 

C , , FOR A .READ ERROR. AN END-QF-F ILE. AND PRORER DATA IN 5 KEY 

-G WORDS IN..RSADIN. ^ ^ ^ 

C- 2. IF ALL OF THE TESTS ARE PASSED . CHKREC RETURNS TO THE 

-€ DCGINNI N G OF THE LOOP AND - ANB - T H& R~RECQRD.. IS-REAB — F RO M ' THE 

C ■ DISK INTO THE READ IN ARRAY. 

-e ^ 3»lr ANY 1 OF THE TESTS IS FAILED.AN APPFCP R IA - TE ERROR MESSAGE 

C : IS PRINTED, A. LOOP EXIT OCCURS, AND THE FOLLOWING STEPS ARE 

-e ^ ; PE-RFenM EP 

C A. THE NEXT TO THE LAST RECORD BEFORE THE CHECK-FAIL RECORD 

IS .RE; t O ' FROM THE CISK-I-NT - B R g API -N. = : 

C S.THE TIME OF OCCURRENCE OF THE LAST SATELLITE DATA ITEM 

-C IN ROADIN IS .STORED IN THE - S A TELLIT& DATA— E ND TIME 

C * POSITIONS IN THE TITLE ARRAY. 

C- TITLE ARRAY MOW CQR R E - SPONOS • TO A REV I -SE-G— TTTLE 

C RECORD CONTAINING THE NEW END TIME CF THE SATELLITE DATA 

-G A ND IS WRITTEN AS THE TITLE RECORO OF THE— OUTPUT QRB3 A 

C TAPE. 


C DISK TO OUTPUT GRE3A) IS EXECUTED UNTIL THE TIME OF 

-G ecCURR E NCE OF THE ' LAST SATELLITE DA - T - A ITEM IN A RECORD 

C COPIED CNTO THE OUTPUT 0RE3A MATCHES THE SATELLITE DATA 
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-I-£N— OOt ha- 
ISN 0004 


ISN 0005 


ISN 0006 


ISN 0007 


ISN 0008 
ISN 0011 


ISN 0012 

--I-SN-0013 

ISN 0014 


— e r- SND - TIMS .CONTAINED — IN THg OUTPUT C B B3A TIT fc ^ R ECO R D . 

C E.WSNEOF IS CALLEDtENTRY POINT TO SUBROUTINE RWTAP4-I TO 

-rG WRITE 1 - SENTINEL ITEM RECOnO i a SCNT - INCL ■ RECO R B S . AHO - A N 

c end-of-fiee cn the Output grbsa tape. 

■— G P . CaN'TBOL IS BET U PNE P TO CH IC REC AND A MESSAS E— IS B R INTEP 

C OUT STATING A NCHHAl. TERMINATION OF THE CHECK RECORD 

— C OPTTCN has CCCUPPgC. — : 

C . ' . 

—e B eQUlREG SUBFROGBAHS ... 

C SUBROUTINE SUBPROGRAMS 

— G PTVVPc^-t-WSN & C P - rW . T A P E Al A1.I. -. T ABS' ENTRY P O INTS TO 

C FUNCTION SU8PFCGRAMS 

— C NC-(£UKCTUrC>NS-^AR E -CA LL r50-a Y - CHKRE . C . : ^ 1 

C LANGUAGE AND SYSTEM 

—G GHNRS C - HAS e S€T J~ CCMPTLEO UNOER FORTRAN IV , Lg - V6L-H . CPT IM IZATION 

C level OF- ZERO ON THE IBM 360/05 USING RELEASE 19. 

— G PRC - G R ARNCR 

C ROBERT K.SCHLESSINGER 

— C GGMW jTEn SCI E NC E S COnPCRATIC N 

C SILVER SPRING, MARYLAND 

—e PREPARED FOR 

c goddaro space flight center 

— € NAT-^NAt^-AERSNAUT.ICS ■ AND - S P A C E . -AD H lU IS TPATICN 

C GREENEELT. MARYLAND 

-G GGW- T R ACT NU H8«I--AN P - G GMPL-eT^4CN--&ATE 

C NAS 5-1 1790, TASK 72, SUBTASK H 

--€ GO M PLETED CN 7 M A . Y — 1 9' 7 I — 

C 

-C—’M=^*—S-T AR - T - PRCGnA M -Tt74>T - T*T . »-»7TYTT*i ) i»*A»AiNTTTTt AT^TYTrTTT-* **** *** *. 
C 

TMPtrl CIT R6AL* g ( A -HtQ- U , W - Z ) 

COMMON TITLE(256) ,READIN<256 ) .PERIOD ,ISAVE(6) , 

1 — I5&T 

DATA ICISK .JSYCUT / 1 4-, 6 / 

~G > TG - F -A C 4- L - I - T A TE — THE - u s e — OF — DS B UGG ing T -OO LS .A L L » GC T O* A MO * CALL* 

C STATEMENTS WHICH WERE NOT REFERENCED INITIALLY HAVE BEEN ASSIGNED 

-C SXAXFVENT LABELS FRO M_7.aO.-,a9-9 fMi-i 119 TVF. ] 

C THE TRETURN4 STATEMENTtNOT REFERENCED INITIALLY.) HAS BEEN ASSIGNED 

--C Tl:Le-LJt8eir— 9 j9S— 


C 

c 

C- 

.G- 

c 

G- 


GT43RE-SATeLL4T:e— GA T - A - ST -A R - T — T - I -M E PAY OF V eA R- IN-LG I CAT ICN ROB 

KEEPING A RUNNING COUNT OF DAY OF YEAR OF 1ST SATELLITE DATA ITEM 

-I-N-OEasA-HECCUaS. ! 

KCATE=T1TLE(5) 

-TNPM)T-.OR&3A-«JL e - B E CEBO-H A. S — BEEN PL A C ED-J N - T it L E A RR A Y BY M A IN . 


5 CALL RTAPE4<READIN, ISRfi ) 

— C 1 F -E ND-CF-j-FILE I SCa.) Mte bpfm PFAn^gTriD rnov Gn -T.n_P-> 

7C0 IFtlERR.EQ.l) GC TO 6 

W R- I - Tg . MDISK) - ngAC . l N L; 

7C2 GC TO 5 

EKD-C-G PY4T4S-F-RO*— 1>1PUT— T-ABE— T-O CASK. . . 

6 CONTINUE 

EAD-..E4XE_iai-SK I ~ 

REWIND IDISK 
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; ^ 

ISN OOlS 
: 

■ C 

• I - £ N- .-OQi e 

; c 

u ^ 

ISN 0018 


C 


t RE'/»p( IDI'SK,ERR=£30,ENO=S40) READIN 

ir DAY CF - Y R- O F 1ST OAT - A -- ITEM IN T I IIG RECO R D ] A0 GE - COWC 1 - G R EATER 

THAN RUNNING' COUNT CAY OF YR.INCREHENT .RUNNING COUNT BY 1 »v 

lfM - tRCADIN( - 3) - XC A TCl lEo; 1»D0) XD ATC ^ XDATL I I « 

" IF DAY OF YH' OF 1ST DATA ITEM IN THIS RECORD EQUALS 'iST DAY OF NEW 

VR ANO-RUMMINC CCUNT EQUALS 3 E5- 0R 3 66. SET - RUNN - ING — COUN T — T ^^ — I . 

IF(READINC3) .EO. 1 .DO .AND. XDATE .EQ. 365.00 .OR. READINO) 

— i . ECu.l . OP -. AMD . XBATg '.EQ . -3 6fr, D0) XO i ^ T. ^- 1 , . 

IF DAY, CF YR OF 1ST DATA ITEM' -IN THIS’ RECORD EQUALS RUNNING COUNT. 


C VALUE AND CHECK NC.l HAS BEEN PASSED (GO TO 20). 

■I-SN— OOEO 70 4— I F -<RCADIM (3 ) . C - q . XpATEl GO - TO 2 0 

C PRINT APPROPRIATE CHECK-FAIL MESSAGE. 

T - E - N - OOZ g WBITC( JEYGUT.gOOO) — = 

C PRINT OUT INPUT 0RB3A CATA RECORD WHICH FAILED A CHECK, 

IS N 0003 710 GC -- TD -5 5E ^ 


C IF SECONDS OF DAY OF 1ST SATELLITE DATA ITEM IN THIS RECORD ARE LT 


ISN 0024 20 IF(READIN(4) ,LT. 86400. DO .AND. READIN(4) .GE, O.DOJ GO TO 21 

e FRIHT AP P RO PR- IATC CHCCK - rAlL MCGGAGC* : 

ISN 0026 WRITE(JSYOUT.201O) 

e PRINT BUT— XNPUT -- ORD3A ■ C - AT - A RECORD WHICH FA - I - LEC A - C H C CK. 

ISN 0027 720 GG TO 5SS 

e IF 3RD WC R D - or GPCCIAL CATA ITEM I N T H I - S — RECORD EaUALE -- g0 9 — 8 R H A ^ 

C A VALUE LE 100 PERCENT, CHECK N0.3A HAS BEEN PASSED! GO TO 22). 

I SN --OOEO 01 IF(READl -N^ t - a -3A- ) — .EQ . 000 . 00 .OR . READINtaa *- ) — , LE . 100 . DO) CQ - TO " 22 

C PRINT APPROPRIATE CHECK-FAIL MESSAGE. 

T-SN-0030- ; WRITE {US Y QUT - T2020 ) ^ ^ 

C ■ PRI N't OUT INPUT DRS3A CATA R.ECORD WHICH FAILED A CHECK. 

■T S -N -0 031 730-GC TO OCC : 

C IF 3KD WORD OF SPECIAL DATA ITEM IN THIS RECORD GE ZERO.THIS 3RD 

— E W ORD H UOT Oe - equal TO -S 99 CR-HAVE A VALUE LTWEEN -- ZERO A N D - 1» 0 

'C PERCENT INCLUSIVE AND. THEREFORE . CHECK N0.3B HAS BEEN PASSED 

^ g ( -G O - TO 23 ) . = 

ISN /0032, ' , 22 IF(READIN( 234) .GE. O.DO) GC TO 23 

^ P R-I NT APPROPni T ^ - T e -G H EC K ' faIL - M E S - SAGE' , = 

ISN 00,34, , WRITE(JSYOUT.2O20) 

^ ^ € PRi-N T OUT- INPUT OR E 3A— &AT - A PCCOnD WHICH .FA - I E CD A CH O CK - . 

ISN 0035 74 0 GC' TO 555 . 


VALUE BETWEEN 1 AND 7 INCLUSIVE , CHECK NO. 4 HAS BEEN PASSED 
-( ■ 'Oe - TC- 2 4 ) . ■ = : ^ 


ISN 0036 


23 IF(REA0IN(1) .LE. 7.00 .AND. READIN(l)' 
PPINT AFPROPRIATE CHECK FAIL HECOACC. 


.GT. O.DO) GQ TO 24 


ISN 0038 


WRITE! JSYOUT ,2030) 


ISN 0039 


750 GC TO 555 


C NG.S HAS SEEN PASS'ED' AND N'EXT INPUT- 0RB3A DATA RECORD SHOULD BE 

6 £XA M INED(G0 Tc 1) . ^ 

ISN 0040 24 IF(RFADIN!232) ,EQ. 99.00) GO TO 1 

e P R l - NT APP RG FH!4-A T S G HE GK - FAIL MSS E - AG &. 


ISN 0042 WRITE! JSYOUT ,2040) 

e PF - I - N - T OUT I NP UT 0R B 3A — CATA RECGRP W H IC H -FAILEC A G H ECK 

ISN 0043 760 GC TO 555 . ' 
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ISN 0044 

G 

E30 

IP HSFE ^A*..FTSAO ■ H^AS-OCCUPRBO 

W^ITS( J£YaUT^20.50 t 

IGH 004E 

- c - 

770- 

ERROR RECORD. , . 

GC TC-5£5 ^ ^ ^ ^ 


’ C IF HERE,,AN-ENO-^CF-FILe HAS BEEN READ,PN DISK, 

I'SN—OOA^ S4 0 »irtITE( - JsV B U -T"raO^^ — ^ 

C PCSITIGN DISK .TO BEGINMNG OF NEXT TO LAST RECORD BEFORE EOF. 

— tSN— O-O-L7 ; 7-SO-:<JG— T-B— ^ i — ^ L— 

C INPUT 0RS3A DATA^ RECORD VrHICH FAILED A CHECK IS NOW PRINTED". 

— -I-SN-D6JV-S- ;s E ES ^nlT EI- ^FSYB U T , 00 - 70) " ^ 1-: 

ISN-004S . , .DC *00 i<=X,24.7.e 

ISL- Oa&o H=K*E — = — ;; : ! ~L L-LJ 

ISN OOSl WRITE(JSY0UT.20e0) '{RE'ADINI n,I-=K.H)- 

-J^~0O52- AW-CCNT-l-NUE ; ; — : 2 1 : = ; 

C POSITION DISK to ’"SEGiNN'lNG OF NEXT TO LAST RECORD BEFORE THE 

— — € CHECKrllAlL riECOSO ; ~ ~ : =" ^ 

ISN 00£3 5£0 EACKSFACE IDISK ’ - 

I-SN-OOS-4-- S£ S - - e ACK£ F^ Er- ID " I "SK ; 

ISN 005S _ BACKSPACE 'IDIS'k " 


C RECORD BEFORE CHECK-FAIL RECORD 1. 

4-SN— OOB€ R e'ac < I -E-LSK-) — B g A B J 1 


C STORE END TIRE 0F_ LAST GOOD DRB3A RECORD IN"TITLE ARRAY, 

- - -i'SN--o&s=7 ^ T-iTfcEi<-7-)=ReA&i-N-t-aia4— = 


ISN 0058 
I-EN— OOEG- 


ISN 0060 
I-5N— 006-1- 

-3-SN-OOfra- 

J-SN— OOB3- 


TITLEIB )=READIN (2 13) 

TT-TL EI 0) = REAOI» . (2t -4-> ^ : : 

C . ' WRITE OUTPUT 0RE3A TITLE RECCRD WHICH NCW CONTAINS NEW END TIME 

-G OF SATE L LITE D A TA-. : = — = i; — 2 — 

7S0 CALL viTAPEA(TITLE) 

RSW-IA.S— LD - I - SK - 

C READ AN CRB3A DATA RECORD FROM CISK. 

1-0-FS5AIM-I D I-SK4~ft£AEiH. = 

C ■ CCPY THIS DATA RECORD ONTO CUTPUT 0RB3A TAPE. 

&O C - G A LL -- ' -W- T AP£A-GR&A&I7v) — 2 : 

C IF END TIME of' this DATA RECORD EQUALS DATA END TINE IN OUTPUT 


-~Q~ 

C 


-QRB3A— T-iTtE- 
□NTD OUTPUT GRB3A TAPECGG TO lOO) 


— 3-SN-DOEA &02— FF^-REAPT-N-(-2-I-24-.EOVF-I-TBS-<-^-. ANC -.B g AP4W-2-I-3-)-»EOVT4TLE-<-8-l . AN0 . R gAP4AU — 

1214) ,EQ. TITLE! 9)) GO TO lOO 

C- LAS T - ■ G SOC — I-NP UT ■ C nB -3 A - PSC0RC HA S— NOT— BE EN- C OP -IE-G- nNTC O a j .T PUT - ^ P-63A — 

C TAPE. READ ANOTHER 0RS3A DATA RECORD FROM DISK. 

- —I-SN -00661^ . — i-S^C-GC-^t) — 1-0 


C LAST GOOD INPUT CRB3A DATA RECORD HAS SEEN CCPIED ONTO OUTPUT 

C G R6E A - T - A P&. MOW-PR-I-N-T---TH‘-I-S-HR&GG«B--QUT-. 

ISN 0067 ICO WRTTEtJSYQUT i20S0) 

„ -i-SN-OGee DC— H5 0 K-l , a')7 . 6 , 

ISN 0C6G V = K-fS 

- ISN- 0070 ■- wrI-TE<.JS-Y-CUT-. 20SO->— I-REA^TNI-I->-r-I-=K-,-M-). ; : 

ISN 0071 ISO CONTINUE 


_ C PRINT— OUT PUT-ORS3A-J ARE— T-I-TLS'- PE CCRD. 


ISN 0072 WRITElJSYQUT.aiCO) 

•IE N- 0 07^ ^ D C-5-Q0 -K- l-.^-A7-.E ^ 

ISN 0074 M=K+5 

ISN 0075- WPI-TE {-JS-YCUT-.aa604— I-T-J-72LEI-I-V-,-1— (C.4DL 

ISN 0076 SCO CCNTINUE 
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ISN 0077 
ISN O07S 


DC 200 1=1,21 
2C0 CCNTI^UE 


ISN 0C8C 


T ITLE ( 1 )=999S99S9 .DO 


ISN ooei 


WRITE I SENTINEL ITEM RECORD, 2 SENTINEL RECORDS. AND AN EOF 


ISN 0CE2 


ISN 0083 


320 CALL i«SNEOF<ReADIN, TITLE. IWCFC) 
WRITE(JSYCUT,2H0) 


lOT HAVE A LEGAL VALUE./ 


SSE MORE THAN 1 OVER/ 
EBC.l 


1 NOT WITHIN LEGAL LIMITS./ 


3HAN CR EQUAL TQ ZERO.) 






INCT HAVE A LEGAL VALUE./ 


3EEN 0 AND 100 PERCENT INCLUSIVE.) 


INCT WITHIN LEGAL LIMITS./ 


30 7 INCLUSIVE.) 


INCT HAVE A LEGAL VALUE./ 


ISN ocas 2050 FCRHAT(1H0,20X, A6HA READ ERROR HAS OCCURRED CN INPUT QRB3A TAPE.) 
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c . T n - A N G— R-G -S- S nEFERGMC e LI S.T IN PV^iG E — 0 0? — 

•it 


Z 

0C51 

KM 

0C5 t 

A.T.eMSM 
0 051 

MUMB- 

CC70 



0070 

0070 

C075 

0075 

0075 0077 0078 


M 

-I-ERR — 

0050 
0-0^7— 

0C51 

0069 

0070 

0074 

0076 



t 

. 


ISET 0004 

—I O-I S K 00 OS 0 0 1 -C 00 - 1-3 00 - 1-4 00 - 1-5 0 - 05-3 0054 0055 0-050 0054 0053 

ISAVE 0004 

-I woHfi 0 -c-^i — eoe^ ^ ^ 

’title 0004 occe 0057 oose 0059 OO 6 O 006 A 0054 OOSO 007 S 0080 0082 

-X DAT E 00 05 CO- 1 - 5 — 0 - 51-5 504-5 0 045 004-5 0 O-l-B 0030 

CKKREC C 002 

-J SYO U-T-^0 0 OS 0-032 0025 50 30— 0-034 — -0 038 — -5043— -OO44---4)-04-6— 004-6 055 1 006-7-— <.0075S — 00-7-2 00-75 0083 

PERIGD 0004 

-HE-AD-I-N 0-004 05 C 7 C-Cl-C 0 - 0-15 00-15 00-15 0 - 0-15 0020 0024 0024 0025 0025 003 - 2 : — 0036—0036 OOAO 005-1 0056 - 005 . 7 - 

oosa 0059 0062 0063 0064 0064 0064 0070 0078 0082 

-R-T-AP E 4 0 - 0-57 = ^ 

WSNEOF 0 C £2 

-WTAP £4 0050 005-3 : 





1 R A N ■ 

c R c s- S 

R C F-E-ft E N'-C-C 



[ 3 T I N 0*+*»* 








1 

ccis 

0C40 




• 

6 

0012 

ooca 







00£0 







0028 






CC40 






15 0 

0071 

coaa 




- 

<40 0 

0052 

C049 





S3 0 

CC4A 

0015 





5SS 

0048 

OOS3 C027 0031 0035 

0039 0043 




56 5 

0054 

0045 





702 

001 1 






71 0 

U C 2 0 
0023 





' 

73 0 

0031 



' 



75 0 

0039 






770 

0045 





' 

70 0 

0060 






eo2 

0064 






azo 

0062 






2 00 0 

C084 

0022 





2 02 0 

0066 

C030 0034 





2040 

0088 

♦ 0042 





206 0 


0046 


• 



2080 

GQ92 

C061 0070 C075 





210 0 

009^ 

— C49S 

0072 

(H>*3 
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/■ LJty ^ 

vnrx I < c v» # 




- 1 ^ 


NAM1= 



TAG 
“SP — 

TYPE 

ADC« 

-f\.r..ngnrt 

NAM£ TAG 

TYPE 

ADDm 

NAME 

t'ag 

TYPE 

ADO. 

NAME 

tag 

TYPE 

ADD. 

ISFT 

c 

1*4- 

N.R. 

lOISK F 

I*A 

0005AO 

I SAVE 

C 

I«4 

N.R. 

IWORD 

SFA 


lAA 

0005A4 

- T-I Tt=- 

SPA "G- 


— C-G-OO-O-O 

__.y.nA,T.P e:er 







T ■■ A A 





JSVOL-T 

p 

I >tA 

'ocosAe 

PERICD C 

R*S 

N.R. . 

READIN 

SFA C 

R*8 

ooosoo 

•** liW— * 

RTAPE4 

SF 

*"A^*“* 

XF 

RA8 

000000 

ViSNECF 

SF • >F~ 

p*8-- 

-c«ooo 

SF 





.... 

. . 










NAME CF CCf'MCN BL CCK * ♦ SI2E GF 0LOCK 001024 l-EXADECIMAL BYTES 


VAR. NAMF TYPE RSL. ADDR. 

T-I-TLP B*6 O-OOOOO 

ISBT N.R, 


VAR. NAME 


TYPE 


REL • ADOR. 


VAR, NAME TYPE REL. ADDR . VAR. NAME TYPE REL. ADDR, 
FEP.IT30 P*B N.-R. 1 -SAVE IV4- 


• 0 <M>S 0 - 0 - 


-N.A. 
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— L-AeEtr ^ACOR- 


trAflEtr 




tABSt- 


-ACOR 


-5 — ooeeeo- 


1 00C71S 

&OCe4 O-RR- 

740 OOOBAC NR 

-760 O OC-4- 1 -4- N ft- 

780 00C94C NR 

-S65 OO C-9E4 

802 OOCA7A NR 
-600 O-OOBC-2 


-700 ao 06 C E ■ N R- 

704 


-702— :-0006R-e— NR 


23 

-530- 

555 

--7-30- 


OO07OC 

«-l <■ 

U V C 

0008B2 

Y>n - t A 
W V i. ^ 


710 

•7- 3 - 0 - 

7teO 

-770- 


000952 
-00QA34— N R- 


810 000AC8 

‘■ 200 G -0-6-QR- 4 — 


400 


000804 NR 

00C8E8 NR 
-6005-33-NR- 
0009C2 
-OO-OA&O 


100 OOOACE 


— ♦OPT-I-C NS— I-N— 6F FS-C-T-+- 


-T-=S-8-*-S-I-2S=00004<:-, 


*aPT-I &NS— I N -eFFS^-7 S5«0Se-reB€C4-^-TN01^I-S-T-rN00SO^rW9A0^,44AP-rWSE-D-I-7-»-I-CT741€R. 

— *-5PA-7-I-ST«S4 3GUR4S— S7A7&M&NT-S-^= » 6- .,..p BO 05A- N- S I - Z -g-= 3474 


6 OOOOFe 

20 00080A 

—22 000686 

24 0008EE 

540 000936 

560 0009D6 

600 — 0 00A6O--NR- 
150 OOOB3E 
•9 99 — aO-OS-4-O-NR- 


♦S-T-A-T I-5T-I G-S* NC P-I-AON&S-T-l-eS— GENERATE D 

N 0-0 F— GORF-I EAT-I-GN - ^ ♦ 4 19-5K-B-Y-TES— OF— COPS— NOT— USE O- 
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teVErlr-'l 9— (— Jt-Ne—7-0— >• 


■Q&/-360 fQR-T-RAr^-H- 


e-A'T 6 7-l-w- 1-5 8 Al-l- > aa -»-0- 7 - 


CGJ“P‘ 

—0-0 0-S- 


'-1 LJ? P-.Ol^-T-1-GNS-— — KA«C = ^->-0 pa‘^O4>-,-UI4*^NT-sS4iU^-4£^'04JaK-» 


SnURCF?t^ECOTC*NOLIST»NaDECK»LUAD,»^AP. hQEOlT. ID^XREF 


C 

•O- 


-SA/»fiWT-I-N5- R W- T AP^ 5 

PURPCSE 

SA>t1R0U-T-I4‘iE-JJWXAP4.-I-S-US&D-M~fc^D— A-7«TBAjCJC--f34-NAR¥-CPe-3A-Sl-NGl^t- 


PRECISION FLOATIMG POINT WHICH THE INPUT TO TH£ S/360 

— C-- -TtL-CP3- PHOGflAM-*^-N-"AOCM-ION-*fiAiTAP4— IS-GALL-eO-TG^-CRE-ATE AW OUTPUT 

C ORBiA TAPC IN THE SAN'S FORMAT AS THE INPUT CR63A TAPE. 

— € e-AWb I KG-« SE QUB NG C-t-ST ANGA F 0-eH-T-R-Y— P^I NT-J 

C CAUL RWTAP4 

-c - THBR^^ARE-NO-ARGUMSNT^^IN— T-Wz-CALU-ING-S^ouewce-*- — * 

C CALLING SEQUENCS(NON-STANDAFD ENTRY POINT NO*n 

-c CALL-RTAPe 4 tRCCCRD^I&PR-> 

C INPUT 




C 

-G- 

C 

c- 

c 

C" 

c 

~o 

c 

.-c- 

c 

c 

^c— 

c 

. G 

c 

-G — 

c 

-G — 
C 

c— - 

c 


CUTPUT 

WeCORO-— A-S 56 -VGP!!>--Afini»y-US£G— TG-STO«E— A-fieCGRO-RE/lG— PPOM- THF 

INPUT CRB 3 A TAPE. 

lERfi— --EBfiOB— INO-IC-A-TCS-ReBLE-G-p-I-AMj-UNUSU^^-GGNCI-T-ION^-.- 

ENCOUNTERED IN READING AN INPUT afi 83 A PECORD . 

= 0 -»NQ-VN lASUAfc-Ce WMAP-I 

= I,END- 0 F-PU-E. 

= 4 ,P 6 RPANEN-T— R 5 AO-ERROB-.-DATA— PS-TURNEC-^O-T -I-T-S 

VALIDITV IS questionable. 

CALU-I-NG-SeQUENQc-I-NCN'-S-TANOARtL-EN-TRV— PO-I-NX_NO.-Z.) - 

call ViTAPEAIRECORD) 

-iNpy-T — 

RECORD = A 25 E-WORO ARRAY USED TO STORE A TITLE RECORD OR A DATA 
ReGCRD-BeADY-TO-Be— WR-l-T'-T-EN-ON-THE-OUTPUT— CRS 3 A-T‘-API=^. 


OUTPUT 
NG NE . ' 


CALLING StQUENCEINON-STANDAPO ENTRY POINT NC, 3 ) 

-CAL-L— ItGNeOIHPE COP 0-.-RSCRai-,-I WORM 

INPUT 

RECORD— =— A— aS-6-WOBG-APRAY— USSC— TO— S-TOR&-A~ SENT-INEI — l-T-EM-B 6CORO 

READY TO as WRITTEN ON THE OUTPUT 0RE3A TAPE. 

ReCRDl— =-A-aSC- WORD-ARRAY— USED— tO-^TORp:~A-Sem INEL-RECOBO— READY. 

TO BE WRITTEN ON THE OUTPUT 0 RE 3 A TAPE. 


-lAn-GR 0 si_PLALS-P-QB-&RA NeHJAf.. 


= 1 .WSN£ 0 F WRITES 1 SENTINEL ITEM RECORCtZ SENTINEL 

B&CCR DS « A N 0 ^N- 6 ND- 0 PU-(LI L E— ON— T.KE- 0 UT-PU-T- 0 RB 3 A--T APE..- 

- 2 .WSNECF WRITES 2 SENTINEL RECORDS AND AN SND-OF-FILE 


-tT^THe-0UTPUT^RB3A— TARE-. 


OUTPUT 


C INPUTITHROUGH CCMMONI 

C NCNS.- 

C OUTPUT (THROUGH COPPON) 

C NG-WU. 

C MAJOR VARIABLES (IN ADDITION TO ADOVEJ 

.,c— - . — JOUTaN-=~FORWIAN-LOGICALr-A>NIT--NCT— EOP~OUTPUT-CR 83 A-TAPEI IS) ♦ 

c references 

c WGLF—fieS&ARCH— AND— CEVELOPJteNT— CnnjiDRAIX 0 H..KJtYeRCAL£.J 4 AnYLAND. — 



O rt n n n o 




CONTRACT NAS 5-1 1735 iMQD 3* REVISED 1 MAY 1970 


RDCM 2S.GRE£NB£LT,MAftYLANC.RE6IST'eRED COMPUTER 'PROGRAM 

NUMScB— ATTOGA a—G-A-T-^N-*. ^ 7— ^ 

M3THCD 


■T»ii JWgwl"*; 



STRUCTURED DATA AND PLACES THE RESULTS IN THE 256-WORD ARRAY 
— NAM£D- P e cC R D, 


TAPE CONTAINING SINGLE PRECISION FLOATING POINT DATA, IT IS 

Nee es-SAR Y - T - e m a ke - - A-G ALt L TC ENTR Y—Pe- I -NT-W- T - A r-eA 0F--S U 6Ra UT -I-Ne 

PWTAPA* AFTER ENTERING AT WTAPE4 THE FOLLOWING STEPS ARE EXECUTED 

l.A CALL T5_ FADE TO DATCONCSEE END REFERENCE ABOVE} WHICH 

CONSISTS or AN- e- xisT - i N G— SET O F - s/jeo ass e mbler language 

SUBROUTINES MODIFIED FOP TELORS PROGRAM PURPOSES TO OMIT- THE 

^ e O M PLEME N TINC Q g - NEGAT - I VS NUMBE R S WHEN -PER FOR M I NG THE ~ 

FCLLOWING MANIPULATION. D'ATCCN CONVERTS THE DOUBLE WORD S/360 

^ B AT- A - TN- T HC ARP AV -RECGRB TC SINGLE PnECISID N — 

7094 FLOATING POINT DATA, 

e-r A — & EC- BNG CAL - L - -I - S ' MADE. ' TC • OATCOM WHIC H WR I- T - ES— T H E CONVERTED 

DATA,(SINGLS PRECISION 7094 FLOATING POINT) AS 1 LOGICAL 


SENTINEL RECORDS AND AN END.-QF-FILE ON THE 7-TRACK CUTPUT 0RB3A 

T - A -P g ., 1 - T -. I S -NECESS ARY- -TQ- MA K -E- CMS— GA LL , . - TO - ENTRY PQ - INT ^SMSOF ■■ OF — 

SLSRQUTINE RWTAP4 . THE PRl NC IPLE OF WRITING THESE SENTINEL TYPE 

R&eBRBS-HE-S— l OEN - T -Te A - b - TC THA -T- - E M P L OYE D— I - N - WT APS4— A-6BV&^ 

REQUIRED SUBPROGRAMS 

SUDRGUT-4-NE-9UEPR6GRAMS 

CNVRT .DATCQN .DBFOR 

FU - NC - TICN SU 8PRG GR -AMS 

NC FUNCTICNS ARE CALLED BY RWTAP4. 

-trA NGtrAGE— ANB— S-YSreW 

RWTAP4 HAS BEEN COMPILED UNDER FORTRAN IV, LEVEL H , OPT I M I ZATI ON 

UE-V EL -GF -H I -& RO ON TH E -I . BM 3 6 0/05-05 4 1^ RELE - A& E 10. 

FROGRAMMSR 


C-59 





- COMPUTEfi SCIENCES CORPORATIGN 


PREPARED FOR 


national aercnautics and space administration 


C CONTRACT NUMBER AND CCMPLETICN CATE 


C COMPLETED ON 7 MAY IS71 


C *** START PROGRAM **4-A+****+**************+*+***** + *+*****+********^!** 


ISN 0003 IMPLICIT REAL *8 C A-H. 0-U. W'Z ) 


ISN OOQ5 DATA JOUTBN / 15 / - 


C STATEMENTS WHICH WERE NOT REFERENCED INITIALLY HAVE SEEN ASSIGNED 


ISN 0006 



ISN 0010 


ISN 0012- 


ISN 0014 

i-SN-OO l-S- 

ISN 0016 
I^N-004-7- 


ISN ooia 


ISN ooao 

--I-SN -0024- 
ISN 0022 


C GENERATED 6V OATCON TO ACTUALLY HAVE A UNIVAC I 1 07 


700 CALL DATCCN(97) 


; WHICH OUTPUT GRE3A WILL EE WRITTEN AND SPECIFYING NO. OF 36-BIT 


: NOT TO EE COUNTED). 


720 GC TC 9S9 


: THE FOLLOWING 2 CALLS TAKEN TCGETHER READ I RECORD FROM INPUT 


730 CALL DBFORI 258, lABD, lEPR) 


750 GO TO 999 


C THE FCLLCWING 2 CALLS TAKEN TOGETHER WRITE 1 TITLE CR DATA RECORD 


760 CALL DATCDNI47. RECORD. 2S3.JGUTBN) 

— 79^0— GALL— &ATCON4-J65UT&N.— 44 

760 GC 7C 999 

E NTRY— W-SNEOF4flEGHRlA.-RSeRO 1 .4- WGR CI , — 

C IF ‘LAST DATA RECORD TO BE WRITTEN ON OUTPUT 0RB3A HAD LESS THAN 11 

vfAi^Trt rriiTJi TTdic_LjrwTTE n C t K*Tr taici ots r" nnr\c it Ti C 


C OUTPUT aRa3A{IWCR0=2>.CTHERttISE, WRITE 1 SENTINEL ITEM RECORD. 2 

-C SENT4T4eL— RE4H)RP-St-AN0 AN ENO - OF- F I L E4-IWRO ~H '. 

762 IF{ IWORD.NE. 1 ) GO TO 10 

_C IE— HER E .-W-STTF 3 SENT.tNEJ TVPF RFrnRn.9 AMD AN END-nF- FI L E ON f lllTPtJT 

C ORB3A. 


C THE FOLLOWING 2 CALLS TAKEN TOGETHER WRITE 1 SENTINEL ITEM RECORD 

790 CALL CATC0NI47. RECORD. 253. JCUTBN) 

a OO-C-ALL^OA-TCGN < ■ J0U4 8 N»^4 

10 CCNTINUE 


C-60 







C 


• ir- nCRC^WRlTE G .5CNTlNEtr:-R£C0RD5 AMD- 
0RB3A. 

■ 



c • 


THE. FOLLOWINQ ^CAL.LS TAKEN TOGETHER 

WRITE. 1 SENTINEL 

RECORD ON 

I SM 

0023 


810 

CALL DATCON ( 47 ,RECR C 1 . 253 . JOUTBN > 





c 


THE ..FOLLOWING 2 CALL'S TAKEN TOGETHER 

WRITE 1 -SENTINEL 

RECORD ON 

I SN 

0025, 


830 

CALL CATC0N(47»RECRDi.253» JOUTBN) * 

— KLCROI* 




c 


THE FOLLOWING CaLl WRITES AN END~OF-FILE ON OUTPUT. 0RB3A TAPE. 



c 


REWIND OUTPUT QRSSA' TAPE. 


. 

1 SN 

002Q 

-0<i-30 


SS9 

RETURN 

1 ; 




C-61 



• 


R T R 

N 

— e-ft- 

■OSS- 

■ n«e" r c fi c m c 

-E- la-I, S T— I H 

lACD 

0010 

,0011 







_ 


JERR 

oou 



' 




X y *• 



OEFOP 

0010 
^C4«7. ■ 

^004-S_ 









OATCOM 

0000 

OOC7 

rtm 

0C14 

0015 

00£0 

0021 

0023 

0024 

0025 0026 0027> 


RECORD 

ooo<i 

00C9 

0011 

0013 

0014 

0017 

0020 





0009 










WSKECF 

0017 











C -^62 









770 OOlS 

-78-e 

782 0018 

-790 0020- 

800 0021 

^ 1« 0 ■» — —■ 00 2 * 3 — 
62C 0024 


840 0028 

— ‘B5-0— —O 027- 
999 0C29 


CCC8 0012 0018 



C-64 




S! - 2C- 


NAME 
l-ADD 

TAG 

SFA 

TYPE 

— F44 — 

ADD* 

,4V<VA 1 1 n - 

name 

TAG 

TYPE 

ADD* 

NAME 

TAG 

TYPE 

ADO* 

NAME 

TAG 

TYPE 

ADD# 

DBPOR 

-rieWTON- 

SF >F 
SPA 

R*8 
I — 

000000 

,_Q ^ fll'30 

IWORD 
FS-G0R9- 

SPA -X-p- 

It4 

OOOllC 

DATCON 

SF XF 

RA3 

000000 

tBC0M= 

gp . 

F. XF 

— n*6 — 
t*4 

oooooo 

RWTAP4 


R*8 

000130 

hSNEOF 


R4C6 

000138 

WTAP64 


R*8 

000140 



. RAfl— ■■ 




C-65 


tAB Bt ArGB R — 


t-ABEt- 

A-BDR — 


brABEt— 

AEBR — 


bABEtr- 

addr — 

740 00C1C8 

NR 

750 

00O1D6 

NR 

760 

OOOIDC 


770 

OOOIEA NR 

10 00C23C 

8A0 OU C-2-70- 

-NR 

810 

eEo- 

00023C 

—OEOEBE- 

NR 

■fiR — 

820 

999— 

00024A 

-BOBEAE- 

NR 

830 

000262 NR 


*6PT-I-0N S— I N-eFF-E<HT->t IVAMe= — 

*-S-TA^l-ST-r-&S^- SGUfM^e— S^A-TS+ieNT-S-« ao ■, PfXB -&B A M - Sl - Z - e -^ 1-&S€ 

— +^A-T-tST-I e S * N G AT-eG 

» ♦ ;»» . .» .^i_-eNO-gF— G C - K-P4 U A^T- I -& ^ ^ ■» * ■* »* ■■ * t- l SK ■■B ¥ - T -&&- O F-~ CQ RB — NQ T -< JS eP- 

— +S-TA-T-I-ST-FeS+ NO &-IA-GN&&T-t-e5— T-H i G ST -EP — 



lEFaeEI VOU SEF NC£= GISCFA. 


I0F2eEI VOL SEP NCS= GISCPA* 


' / V / v/^ n A - 
J 9 'IWWVW*! C» * 


rEFaesi vol sep pcs= giscrs. 

-feF a 6 s-l e-y«-7-l-l-5 Hm3«^-fiVO-<KVi60l<-SG-(MV«.0 0«^3AW 

IEF2SEI VOU SEF PCS= GJ.SCRA. 


■PA SSED" 
■aA'SO U ' T ■ 

-OetGTSB. 


{ EFfi 6 5-1 SYS 7 t-l-6-6-.^l-<34G6-rfiV OOO »^-ePKGO-a0-»-SOO&O43E S-¥-&iN 

IEF2£5I VOL SER NCS= GISCRU 

i-G Fa-a^. I sYS-74-i^4<4-i-«43*^vo-co^zB«i<;ao.ao^-s4L(MK>«« oeus-Teo : 

lEFaesI VOL SER NCS= GlSCRl. 

Joa-NBP a.l-D-S-T-eP-MBB 0-1 ^OftKG<MO — S-CUPCe |K;h= 4-EKA«10 CARCXS=MJ4-aoS WI-T-IA-T-ION~T-IME=14 -.A.i.^Z 7*06 -OATE=oa«^7---7-l 

CPU=000.1 1/0=000.1 CORE=000.1 CHARGE=OO0. 10 STEP-Ol 5CURCE TERMINATION T IME=1 1 .44 . 1 A. 75 DATE=OS-07-7 1 

— I-/G-- TIME-EY— GGV-IGG. G-I-SK=PF»iMt-l-.-7-l--rDB0 M - ♦» ** * t-.GS-r-TAPS=A* *»** ,-00-.<l€LL=-* *»4*» .0-0-»-0-T-HR=**-»*AP,00 

STEP REGI-CN SIZE=0300K MAXIMUM REGION SIZE UEEO=0300K P,ERCENT OF REGION USED=99 

t£F2 &&I ■BY-S44-l-6G.-'F4-I>a43«Tfi-VIHM>,-ie»l4G0-(}O-.GGJMe0 — ■ 

IEF28EI VOL SER NCS= GISCRA. 


GPU=KI0 0 .-l—I-/' 0=000 .-l~GQRe=0 00.-1 GHAPGG=0 00.-1O J OS— NOR— a-t9 Z-e«KS4) 00 360/-95 S.Y-STEM=PV-T— 1-9.-6 0-t~ 1-6-74 GI 

- I/O TIME EY CEVICE, O I SK=*** + ’f' 1 .7 1 .DRUM=***»* 1 .95 ,TApe = **JF***, 00 , C EUUs***^^** .0 0,OTHR=:X<*!**T*. 00 



